Over 1,000 Windows 95 Programs

home *** CD-ROM | disk | FTP | other *** search

/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0232 / htmlmacs.smm < prev next >

Wrap

INI File | 1997-03-26 | 110KB | 4,360 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [docvars] Destination=d:\docs\html\aim\kr\ [prn] PostScript Printer [port] FILE: [lang] 2 [fldnames] Field1 Field2 Field3 Field4 Field5 Field6 Field7 Field8 [desc] 812913743 69 784999827 959 28 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Body Text 2 [fnt] Arial MT 240 0 16384 [algn] 1 1 216 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 16 0 0 [nfmt] 272 1 2 . , </c> Body Text 0 0 [tag] Body Single 3 [fnt] TimesNewRomanPS 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , </c> Body Single 0 0 [tag] Function 4 [fnt] Arial MT 200 0 16385 [algn] 1 1 0 0 0 [spc] 33 244 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , </c> Body Text 0 0 [lay] Standard 516 [rght] 16833 11908 1 1440 1440 1 1656 1440 0 1 0 1 0 2 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 11908 1656 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1656 11908 1 1440 0 1 648 1440 0 1 0 1 1 0 1 1440 10465 1 3 9360 [txt] HTML Macros by Steve Belleguelle November 1994 Page <:P10,0,> Nottingham University, England EMail: sbx@cs.nott.ac.uk > [frght] [lyfrm] 1 13248 0 15393 11908 16833 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 16833 11908 1 1440 792 1 15465 1440 0 1 0 1 1 0 1 1440 10465 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [pg] 28 36 0 29 512 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 93 0 115 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 133 0 29 512 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 188 0 52 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 236 0 29 512 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 293 0 24 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 314 0 29 512 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 369 0 10 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 370 0 29 512 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 426 0 0 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 440 0 29 512 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 451 0 5 512 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 485 0 29 512 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 530 58 22 32 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 558 0 29 512 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 615 0 55 0 0 1 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 665 0 41 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 692 0 26 512 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 748 0 115 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 761 0 5 512 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 813 0 41 512 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 869 0 24 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 888 0 29 512 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 945 0 61 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 978 0 15 512 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 1030 0 54 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 1042 0 36 512 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 1066 0 39 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 [edoc] <:#240,9025><:f200,2Times New Roman,255,0,0>'Function called when creating a new HTML document <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>FUNCTION CreateHTML() <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>MacFile=GetRunningMacroFile$() <:#240,9025><:f200,2Times New Roman,>Slash=0 <:#240,9025><:f200,2Times New Roman,>FOR i=LEN(MacFile) to 1 STEP -1 <:#240,9025><:f200,2Times New Roman,> IF((MID$(MacFile, i, 1) = "\")AND(Slash=0)) Slash=i <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,>NEXT <:#240,9025><:f200,2Times New Roman,>IF Slash<<<;>0 <:#240,9025><:f200,2Times New Roman,> Temp=RIGHT$(MacFile, LEN(MacFile)-Slash) <:#240,9025><:f200,2Times New Roman,> MacFile=Temp <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!InitHTML"<:f> <:#240,9025><:f200,2Times New Roman,>AssignMacroToFile("{MacFile}!InitHTML", "{MacFile}!CloseHTML", 6) <:#240,9025><:f200,2Times New Roman,>CALLI Macro() <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDTITLE") <:#240,9025><:f200,2Times New Roman,> IF box <<<;>1 <:#240,9025><:f200,2Times New Roman,> Exit Function <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>Title$=GetDialogField$(8000) <:#240,9025><:f200,2Times New Roman,>HeaderFooter(1) <:#240,9025><:f200,2Times New Roman,>Type("<[>Tab]{Title$}") <:#240,9025><:f200,2Times New Roman,>Type("<[>CtrlHome]") <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>DIALOG ADDTITLE <:#240,9025><:f200,2Times New Roman,>-2134900736 4 78 55 160 90 "" "" "Document Title" <:#240,9025><:f200,2Times New Roman,>15 18 127 12 8000 1350631552 "edit" "" 0 <:#240,9025><:f200,2Times New Roman,>15 8 82 10 1000 1342177280 "static" "Enter Title of Document:" 0 <:#240,9025><:f200,2Times New Roman,>16 54 40 14 1 1342373889 "button" "OK" 0 <:#240,9025><:f200,2Times New Roman,>100 55 40 14 2 1342373888 "button" "Cancel" 0 <:#240,9025><:f200,2Times New Roman,>END DIALOG<:f> <:f200,2Times New Roman,><:p<* >> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function called when opening an existing HTML document<:f> <:#240,9025><:f200,2Times New Roman,>'*************************************************************************************** <:#240,9025><:f200,2Times New Roman,>FUNCTION InitHTML() <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>NumGlobs = GetGlobalVarCount() <:#240,9025><:f200,2Times New Roman,>IF NumGlobs<;>0 <:#240,9025><:f200,2Times New Roman,> DIM TempArray(Numglobs) <:#240,9025><:f200,2Times New Roman,> GetGlobalVarNames(&TempArray) <:#240,9025><:f200,2Times New Roman,> Active=0 <:#240,9025><:f200,2Times New Roman,> FOR i = 1 to NumGlobs <:#240,9025><:f200,2Times New Roman,> IF TempArray(i)="HTMLActive" Active=1 <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,> NEXT <:#240,9025><:f200,2Times New Roman,> IF Active=1 <:#240,9025><:f200,2Times New Roman,> N=GetGlobalVar$("HTMLDocs") <:#240,9025><:f200,2Times New Roman,> N=N+1 <:#240,9025><:f200,2Times New Roman,> SetGlobalVar("HTMLDocs", N) <:#240,9025><:f200,2Times New Roman,> EXIT FUNCTION <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("HTMLDir",1)<:f> <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("HTMLActive", 1) <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("HTMLDocs", 1) <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HTMLDocs", 1) <:#240,9025><:f200,2Times New Roman,>CALL InitHREFTable() <:#240,9025><:f200,2Times New Roman,>CALL InitImageTable()<:f> <:#240,9025><:f200,2Times New Roman,>CALL InitHotKeys() <:#240,9025><:f200,2Times New Roman,>CALL InitMenus() <:#240,9025><:f200,2Times New Roman,>TEMP$= GetProfileString$("HTML", "HTMLDir", "AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,>IF TEMP$="" <:#240,9025><:f200,2Times New Roman,> TEMP$=GetDocPath$() <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HTMLDir",TEMP$) <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ConvertDialog")<:f> <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("HTMLNetScape") <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>BRClear")<:f> <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRThick")<:f> <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRAlign")<:f> <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRWidth")<:f> <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRShade")<:f> <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>AuthNoComma")<:f> <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>AuthNoRule")<:f> <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgHSPACE") <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgVSPACE")<:f> <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgWIDTH") <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgHEIGHT")<:f> <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgBORDER") <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>FUNCTION AddVariable(Name) <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar(Name,1) <:#240,9025><:f200,2Times New Roman,>TEMP$= GetProfileString$("HTML", Name, "AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,>SetGlobalVar(Name,TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>FUNCTION InitHREFTable() <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("PastURLs",10) <:#240,9025><:f200,2Times New Roman,>I= 1 <:#240,9025><:f200,2Times New Roman,>Continue=1 <:#240,9025><:f200,2Times New Roman,>WHILE (Continue=1) <:#240,9025><:f200,2Times New Roman,> Name$="URL{I}" <:#240,9025><:f200,2Times New Roman,> URL= GetProfileString$("HTML", Name$, "AMIPRO.INI") <:#240,9025><:f200,2Times New Roman,> IF URL="" SetGlobalArray("PastURLs",I,"") <:#240,9025><:f200,2Times New Roman,> ELSE SetGlobalArray("PastURLs",I,URL) <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,> I=I+1 <:#240,9025><:f200,2Times New Roman,> IF I<;>10 Continue=0 <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,>WEND <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>end function<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>FUNCTION InitImageTable() <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("PastImages",10) <:#240,9025><:f200,2Times New Roman,>I= 1 <:#240,9025><:f200,2Times New Roman,>Continue=1 <:#240,9025><:f200,2Times New Roman,>WHILE (Continue=1) <:#240,9025><:f200,2Times New Roman,> Name$="IMAGE{I}" <:#240,9025><:f200,2Times New Roman,> URL= GetProfileString$("HTML", Name$, "AMIPRO.INI") <:#240,9025><:f200,2Times New Roman,> IF URL="" SetGlobalArray("PastImages",I,"") <:#240,9025><:f200,2Times New Roman,> ELSE SetGlobalArray("PastImages",I,URL) <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,> I=I+1 <:#240,9025><:f200,2Times New Roman,> IF I<;>10 Continue=0 <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,>WEND <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>end function<:f> <:f200,2Times New Roman,><:p<* >> <:#240,9025><:f200,2Times New Roman,255,0,0>'Functions to set up Hotkeys and menus<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>FUNCTION InitHotKeys() <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>MacFile=GetRunningMacroFile$() <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddHREF"<:f> <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifth], "", Macro) <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddName"<:f> <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftn], "", Macro) <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddImage"<:f> <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifti], "", Macro) <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAddress"<:f> <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifta], "", Macro)<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddRule"<:f> <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftr], "", Macro)<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddBreak"<:f> <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftb], "", Macro)<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!ConvertFile"<:f> <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftc], "", Macro)<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAuthor"<:f> <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifta], "", Macro)<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!Options"<:f> <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifto], "", Macro)<:f> <:#240,9025><:f200,2Times New Roman,>'Macro="{MacFile}!TestDoc"<:f> <:#240,9025><:f200,2Times New Roman,>'OnKey(<[>ctrlshiftt], "", Macro)<:f> <:f200,2Times New Roman,><:f><:f200,2Times New Roman,><:f200,2Times New Roman,>Macro="{MacFile}!BackGround"<:f> <:f200,2Times New Roman,>OnKey(<[>F12], "", Macro)<:f> <:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>FUNCTION InitMenus() <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>MacFile=GetRunningMacroFile$() <:#240,9025><:f200,2Times New Roman,>InsertMenu(1, 3, "HTM&L") <:#240,9025><:f200,2Times New Roman,>AddCascadeMenu(1, "HTM&L", "Elements")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!ParaStyle"<:f> <:#240,9025><:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Paragraph Style<:f><:f200,2Times New Roman,>", Macro, "Select Paragraph Style")<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenu(1, "HTM&L", "Text Styles")<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenu(1, "HTM&L", "Text Effects")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!BackGround"<:f> <:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Set Background etc.<:f><:f200,2Times New Roman,> F12", Macro, "Set Background Image and colours<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!ConvertFile"<:f> <:#240,9025><:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Convert File ^ + SHIFT C<:f><:f200,2Times New Roman,>", Macro, "Convert file<:f><:f200,2Times New Roman,> to HTML<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,>'Macro="{MacFile}!TestDoc"<:f> <:#240,9025><:f200,2Times New Roman,>'AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Test File ^ + SHIFT T<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Test HTML file with browser<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!Options<:f><:f200,2Times New Roman,>"<:f> <:#240,9025><:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Set Options<:f><:f200,2Times New Roman,> ^ + SHIFT O<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Set Options<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddHREF"<:f> <:#480,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Elements", "Add HREF Anchor ^ + SHIFT H", Macro, "Add HREF Anchor") <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddName"<:f> <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", <:f><:f200,2Times New Roman,> "Add NAME Anchor<:f><:f200,2Times New Roman,> ^ + SHIFT N<:f><:f200,2Times New Roman,>", Macro, "Add NAME Anchor") <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddImage"<:f> <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", <:f><:f200,2Times New Roman,> "Add IMAGE <:f><:f200,2Times New Roman,>^ + SHIFT I<:f><:f200,2Times New Roman,>", Macro, "Add IMAGE") <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAddress"<:f> <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", <:f><:f200,2Times New Roman,> "Add ADDRESS <:f><:f200,2Times New Roman,>^ + SHIFT A<:f><:f200,2Times New Roman,>", Macro, "Add Address") <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddRule"<:f> <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add RULE <:f><:f200,2Times New Roman,> ^ + SHIFT R<:f><:f200,2Times New Roman,>", Macro, "Add Horizontal Rule")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddBreak"<:f> <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add BREAK <:f><:f200,2Times New Roman,> ^ + SHIFT B<:f><:f200,2Times New Roman,>", Macro, "Add Line Break")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddNOBR"<:f> <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add NOBR <:f><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>", Macro, "Add No Break Tag")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddWBR"<:f> <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add WBR <:f><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>", Macro, "Add Word Break Tag")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAuthor"<:f> <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add Author ^ + SHIFT A<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Add Author to text<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddComment"<:f> <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add Comment<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Add Comment/Note to text<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddDateTime"<:f> <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add Date/Time<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Add Date/Time to text<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(EM)"<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Emphasis<:f><:f200,2Times New Roman,>", Macro, "Emphasis text style")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(STRONG)"<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Strong<:f><:f200,2Times New Roman,>", Macro, "Strong text style")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(CODE)"<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Code<:f><:f200,2Times New Roman,>", Macro, "Code listings style")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(SAMP)"<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Sample<:f><:f200,2Times New Roman,>", Macro, "Sample text style")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(KBD)"<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>KBD<:f><:f200,2Times New Roman,>", Macro, "Text typed by user")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(VAR)"<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>VAR<:f><:f200,2Times New Roman,>", Macro, "A variable name")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(DFN)"<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>DFN<:f><:f200,2Times New Roman,>", Macro, "The defining instance of a term")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(CITE)"<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>CITE<:f><:f200,2Times New Roman,>", Macro, "A citation")<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextEffects(""BOLD"")"<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text <:f><:f200,2Times New Roman,>Effects<:f><:f200,2Times New Roman,>", "<:f><:f200,2Times New Roman,>BOLD<:f><:f200,2Times New Roman,>", Macro, "Bold text")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextEffects(""ITALIC"")"<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text <:f><:f200,2Times New Roman,>Effects<:f><:f200,2Times New Roman,>", "<:f><:f200,2Times New Roman,>ITALIC<:f><:f200,2Times New Roman,>", Macro, "Italic text")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!Text<:f><:f200,2Times New Roman,>Effects<:f><:f200,2Times New Roman,>(""PITCH"")"<:f> <:#480,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Effects", "<:f><:f200,2Times New Roman,>Toggle Pitch <:f><:f200,2Times New Roman,>", Macro, "Toggle between fixed and variable pitch")<:f> <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextEffects<:f><:f200,2Times New Roman,>(""BLINK"")"<:f> <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Effects", "<:f><:f200,2Times New Roman,>BLINK<:f><:f200,2Times New Roman,>", Macro, "Blinking text")<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:f200,2Times New Roman,><:p<* >> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function called when closing an HTML document<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>Function CloseHTML() <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>NumGlobs = GetGlobalVarCount() <:#240,9025><:f200,2Times New Roman,>IF NumGlobs=0 EXIT FUNCTION <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>DIM TempArray(Numglobs) <:#240,9025><:f200,2Times New Roman,>GetGlobalVarNames(&TempArray) <:#240,9025><:f200,2Times New Roman,>Active=0 <:#240,9025><:f200,2Times New Roman,>FOR i = 1 to NumGlobs <:#240,9025><:f200,2Times New Roman,> IF TempArray(i)="HTMLActive" Active=1 <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,>NEXT <:#240,9025><:f200,2Times New Roman,>IF Active=1 <:#240,9025><:f200,2Times New Roman,> N=GetGlobalVar$("HTMLDocs") <:#240,9025><:f200,2Times New Roman,> IF N<;>1 <:#240,9025><:f200,2Times New Roman,> N=N - 1 <:#240,9025><:f200,2Times New Roman,> SetGlobalVar("HTMLDocs", N) <:#240,9025><:f200,2Times New Roman,> EXIT FUNCTION <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,> CALL WriteHREF()<:f> <:#240,9025><:f200,2Times New Roman,> CALL WriteIMAGES()<:f> <:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("HTMLDir") <:#240,9025><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>WriteProfileString("HTML", "HTMLDir" ,TEMP$, "AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("HTMLNetScape") <:#240,9025><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>WriteProfileString("HTML", "HTMLNetScape" ,TEMP$, "AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,> FreeGlobalVar("HTMLDocs") <:#240,9025><:f200,2Times New Roman,> FreeGlobalVar("HTMLActive") <:#240,9025><:f200,2Times New Roman,> FreeGlobalVar("PastURLs")<:f> <:#240,9025><:f200,2Times New Roman,> FreeGlobalVar("PastImages")<:f> <:#240,9025><:f200,2Times New Roman,> FreeGlobalVar("HTMLDir") <:#240,9025><:f200,2Times New Roman,> CALL DelVariable("HTMLNetScape") <:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>ConvertDialog")<:f> <:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>BRClear")<:f> <:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRThick")<:f> <:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRAlign")<:f> <:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRWidth")<:f> <:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRShade")<:f> <:#240,9025><:f200,2Times New Roman,> CALL DelVariable("<:f><:f200,2Times New Roman,>AuthNoComma")<:f> <:#240,9025><:f200,2Times New Roman,> CALL DelVariable("<:f><:f200,2Times New Roman,>AuthNoRule")<:f> <:#240,9025><:f200,2Times New Roman,> CALL DelVariable("ImgHSPACE") <:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("ImgVSPACE")<:f> <:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("ImgWIDTH") <:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("ImgHEIGHT")<:f> <:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("ImgBORDER")<:f> <:#240,9025><:f200,2Times New Roman,> DeleteMenu(1, "HTM&L") <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>FUNCTION DelVariable(Name) <:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$(Name) <:#240,9025><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>WriteProfileString("HTML", Name ,TEMP$, "AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,> FreeGlobalVar(Name)<:f> <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>Function WriteHREF() <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>for I=1 To 10 <:#240,9025><:f200,2Times New Roman,> URL$=GetGlobalArray$("PastURLs", I) <:#240,9025><:f200,2Times New Roman,> WriteProfileString("HTML", "URL{I}" ,URL$, "AMIPRO.INI") <:#240,9025><:f200,2Times New Roman,>Next <:#240,9025><:f200,2Times New Roman,>End Function <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>Function WriteIMAGES() <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>for I=1 To 10 <:#240,9025><:f200,2Times New Roman,> IMAGE$=GetGlobalArray$("PastImages", I) <:#240,9025><:f200,2Times New Roman,> WriteProfileString("HTML", "IMAGE{I}" ,IMAGE$, "AMIPRO.INI") <:#240,9025><:f200,2Times New Roman,>Next <:#240,9025><:f200,2Times New Roman,>End Function<:f> <:f200,2Times New Roman,><:p<* >> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a HREF anchor<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>FUNCTION AddHREF() <:#240,9025><:f200,2Times New Roman,>DIM Previous(10) <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family; <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family) <:#240,9025><:f200,2Times New Roman,>for I=1 to 10 <:#240,9025><:f200,2Times New Roman,> Previous(I) = GetGlobalArray$("PastURLs",I) <:#240,9025><:f200,2Times New Roman,> if Previous(I)<<<;>"" FillEdit(9000, Previous(I)) <:#240,9025><:f200,2Times New Roman,> endif <:#240,9025><:f200,2Times New Roman,>next <:#240,9025><:f200,2Times New Roman,>FillEdit(8000,Previous(1)) <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDHREF") <:#240,9025><:f200,2Times New Roman,> if box <<<;>1 <:#240,9025><:f200,2Times New Roman,> Exit Function <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>Text=CurShade$() <:#240,9025><:f200,2Times New Roman,>IF Text<<<;>"" Cut() <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>URL$=GetDialogField$(8000) <:#240,9025><:f200,2Times New Roman,>Field="<<A HREF=""{URL$}""<;>" <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:#240,9025><:f200,2Times New Roman,>Type(Field) <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size) <:#240,9025><:f200,2Times New Roman,>Type(Text) <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:#240,9025><:f200,2Times New Roman,>Type("<</A<;>") <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>Match=0 <:#240,9025><:f200,2Times New Roman,>for I=1 to 10 <:#240,9025><:f200,2Times New Roman,> if Previous(I)=URL$ Match=1 <:#240,9025><:f200,2Times New Roman,> endif <:#240,9025><:f200,2Times New Roman,>next <:#240,9025><:f200,2Times New Roman,>if Match=0 <:#240,9025><:f200,2Times New Roman,> for I=10 to 2 step -1 <:#240,9025><:f200,2Times New Roman,> N=I - 1 <:#240,9025><:f200,2Times New Roman,> SetGlobalArray("PastURLs", I, Previous(N)) <:#240,9025><:f200,2Times New Roman,> next <:#240,9025><:f200,2Times New Roman,> SetGlobalArray("PastURLs", 1, URL$) <:#240,9025><:f200,2Times New Roman,>endif <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>end function <:#240,9025><:f200,2Times New Roman,> <:#293,9025>DIALOG ADDHREF <:#293,9025>-2134900736 5 46 60 212 162 "" "" "AddHREF" <:#293,9025>21 10 40 10 1000 1342177280 "static" "Enter URL:" 0 <:#293,9025>50 134 40 14 1 1342373889 "button" "OK" 0 <:#293,9025>114 134 40 14 2 1342373888 "button" "Cancel" 0 <:#293,9025>22 22 170 12 8000 1350631552 "edit" "" 0 <:#293,9025>22 44 170 78 9000 1352728577 "listbox" "" 0 <:#293,9025>END DIALOG <:f200,2Times New Roman,><:p<* >> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add your Name and Email<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,>FUNCTION AddAuthor() <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)<:f> <:#240,9025><:f200,2Times New Roman,>UserName=Get<:f><:f200,2Times New Roman,>ProfileString$("HTML","UserName","AMIPRO.INI") <:#240,9025><:f200,2Times New Roman,>FillEdit(8000,UserName) <:#240,9025><:f200,2Times New Roman,>UserEmail=<:f><:f200,2Times New Roman,>Get<:f><:f200,2Times New Roman,>ProfileString$("HTML","UserEmail","AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,>FillEdit(8001,UserEmail)<:f> <:#240,9025><:f200,2Times New Roman,>UserHome=<:f><:f200,2Times New Roman,>Get<:f><:f200,2Times New Roman,>ProfileString$("HTML","UserHome","AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,>FillEdit(8002,UserHome)<:f> <:#240,9025><:f200,2Times New Roman,>NoComma=GetGlobalVar$("AuthNoComma") <:#240,9025><:f200,2Times New Roman,>FillEdit(20,NoComma)<:f> <:#240,9025><:f200,2Times New Roman,>NoRule=GetGlobalVar$("AuthNoRule") <:#240,9025><:f200,2Times New Roman,>FillEdit(21,NoRule)<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDAUTHOR") <:#240,9025><:f200,2Times New Roman,>IF box <<<;>1 <:#240,9025><:f200,2Times New Roman,> Exit Function <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>UserName=GetDialogField$(8000)<:f> <:#240,9025><:f200,2Times New Roman,>UserEmail=GetDialogField$(8001)<:f> <:#240,9025><:f200,2Times New Roman,>UserHome=GetDialogField$(8002)<:f> <:#240,9025><:f200,2Times New Roman,>NoRule=GetDialogField$(21)<:f> <:#240,9025><:f200,2Times New Roman,>NoComma=GetDialogField$(20)<:f> <:#240,9025><:f200,2Times New Roman,>IF NoRule=0 <:#240,9025><:f200,2Times New Roman,> Field="<:f><:f200,2Times New Roman,><<HR<;><[>Enter]<:f><:f200,2Times New Roman,>" <:#240,9025><:f200,2Times New Roman,>ELSE <:#240,9025><:f200,2Times New Roman,> Field=""<:f> <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>Field="<:f><:f200,2Times New Roman,>{Field}<<A HREF=""{UserHome}""<;>" <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:#240,9025><:f200,2Times New Roman,>Type(Field) <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size) <:#240,9025><:f200,2Times New Roman,>Type(UserName) <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:#240,9025><:f200,2Times New Roman,>IF NoComma=0 <:#240,9025><:f200,2Times New Roman,> ComStr="<:f><:f200,2Times New Roman,>,<:f><:f200,2Times New Roman,>" <:#240,9025><:f200,2Times New Roman,>ELSE <:#240,9025><:f200,2Times New Roman,> ComStr=""<:f> <:#240,9025><:f200,2Times New Roman,>ENDIF<:f> <:#240,9025><:f200,2Times New Roman,>Type("<:f><:f200,2Times New Roman,><</A<;>{ComStr}<<ADDRESS<;>") <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f> <:#240,9025><:f200,2Times New Roman,>Type(UserEmail) <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:#240,9025><:f200,2Times New Roman,>Type("<</ADDRESS<;>")<:f> <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f> <:#240,9025><:f200,2Times New Roman,>WriteProfileString("HTML","UserName","{UserName}","AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,>WriteProfileString("HTML","UserEmail","{UserEmail}","AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,>WriteProfileString("HTML","UserHome","{UserHome}","AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("AuthNoComma",NoComma)<:f> <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("AuthNoRule",NoRule)<:f> <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f> <:#293,9025> <:#293,9025>DIALOG ADDAUTHOR <:#293,9025>-2134376448 10 76 56 212 126 "" "" "Add Author" <:#293,9025>53 7 148 12 8000 1350631552 "edit" "" 0 <:#293,9025>9 8 40 10 1000 1342177280 "static" "Your Name:" 0 <:#293,9025>53 27 148 12 8001 1350631552 "edit" "" 0 <:#586,9025>10 24 40 18 1001 1342177280 "static" "Your e-mail address:" 0 <:#293,9025>53 48 148 12 8002 1350631552 "edit" "" 0 <:#586,9025>10 45 40 17 1002 1342177280 "static" "Your home page URL:" 0 <:#293,9025>56 96 40 14 1 1342373889 "button" "OK" 0 <:#293,9025>120 96 40 14 3 1342373888 "button" "Cancel" 0 <:#293,9025>118 72 76 12 20 1342242819 "button" "Suppress comma" 0 <:#293,9025>26 72 70 12 21 1342242819 "button" "Suppress <<HR<;>" 0 <:#293,9025>END DIALOG <:f200,2Times New Roman,><:p<* >><:f><:f200,2Times New Roman,255,0,0>'Function to add a Comment<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,>FUNCTION AddComment()<:f><-"> <:#240,9025><:f200,2Times New Roman,>Insert<:f><:f200,2Times New Roman,>Note("") <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,255,0,0> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add Time/Date<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,>FUNCTION AddDateTime()<:f><-"> <:#240,9025><:f200,2Times New Roman,>Insert<:f><:f200,2Times New Roman,>Variable <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f> <:p<* >> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a NAME anchor<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,>FUNCTION AddName() <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family; <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family) <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDNAME") <:#240,9025><:f200,2Times New Roman,>IF box <<<;>1 <:#240,9025><:f200,2Times New Roman,> Exit Function <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>Text=CurShade$() <:#240,9025><:f200,2Times New Roman,>IF Text<<<;>"" Cut() <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>Name$=GetDialogField$(8000) <:#240,9025><:f200,2Times New Roman,>Field="<<A NAME=""{Name$}""<;>" <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:#240,9025><:f200,2Times New Roman,>'FieldAdd(Field) <:#240,9025><:f200,2Times New Roman,>Type(Field) <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size) <:#240,9025><:f200,2Times New Roman,>Type(Text) <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:#240,9025><:f200,2Times New Roman,>Type("<</A<;>") <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>end function <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>DIALOG ADDNAME <:#240,9025><:f200,2Times New Roman,>-2134900736 4 91 54 160 90 "" "" "Add Name" <:#240,9025><:f200,2Times New Roman,>34 17 92 12 8000 1350631552 "edit" "" 0 <:#240,9025><:f200,2Times New Roman,>28 49 40 14 1 1342373889 "button" "OK" 0 <:#240,9025><:f200,2Times New Roman,>90 49 40 14 2 1342373888 "button" "Cancel" 0 <:#240,9025><:f200,2Times New Roman,>36 5 75 10 1000 1342177280 "static" "Anchor name:" 0 <:#240,9025><:f200,2Times New Roman,>END DIALOG <:f200,2Times New Roman,><:p<* >><:f><:f200,2Times New Roman,255,0,0>'Use Dialog to select text type<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,>FUNCTION IconTextStyle() <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "TextTypes") <:#240,9025><:f200,2Times New Roman,>IF (box =0) OR (box=14) <:#240,9025><:f200,2Times New Roman,> Exit Function <:#240,9025><:f200,2Times New Roman,>ENDIF<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>SWITCH box <:#240,9025><:f200,2Times New Roman,> CASE 1 <:#240,9025><:f200,2Times New Roman,> VAR$="EM" <:#240,9025><:f200,2Times New Roman,> CASE 9 <:#240,9025><:f200,2Times New Roman,> VAR$="STRONG"<:f> <:#240,9025><:f200,2Times New Roman,> CASE 3 <:#240,9025><:f200,2Times New Roman,> VAR$="CODE"<:f> <:#240,9025><:f200,2Times New Roman,> CASE 4 <:#240,9025><:f200,2Times New Roman,> VAR$="SAMP"<:f> <:#240,9025><:f200,2Times New Roman,> CASE 5 <:#240,9025><:f200,2Times New Roman,> VAR$="KBD"<:f> <:#240,9025><:f200,2Times New Roman,> CASE 6 <:#240,9025><:f200,2Times New Roman,> VAR$="VAR"<:f> <:#240,9025><:f200,2Times New Roman,> CASE 7 <:#240,9025><:f200,2Times New Roman,> VAR$="DFN"<:f> <:#240,9025><:f200,2Times New Roman,> CASE 8 <:#240,9025><:f200,2Times New Roman,> VAR$="CITE"<:f> <:#240,9025><:f200,2Times New Roman,>ENDSWITCH <:#240,9025><:f200,2Times New Roman,>CALL TextStyle(VAR$)<:f> <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> DIALOG TextTypes -2134376448 17 110 54 186 150 "" "" "Select Text Type" 12 10 40 10 1 1342373888 "button" "EM" 0 12 80 40 10 6 1342373888 "button" "VAR" 0 12 24 40 10 2 1342373888 "button" "STRONG" 0 12 38 40 10 3 1342373888 "button" "CODE" 0 12 52 40 10 4 1342373888 "button" "SAMP" 0 12 66 40 10 5 1342373888 "button" "KBD" 0 12 94 40 10 7 1342373888 "button" "DFN" 0 12 108 40 10 8 1342373888 "button" "CITE" 0 54 10 92 10 1000 1342177280 "static" "Emphasis, typically italic" 0 54 24 118 10 1001 1342177280 "static" "Stronger emphasis, typically bold" 0 72 124 40 14 14 1342373888 "button" "CANCEL" 0 54 38 118 10 1002 1342177280 "static" "Example of code." 0 54 52 118 10 1003 1342177280 "static" "A sequence of literal characters" 0 54 66 130 10 1004 1342177280 "static" "Keys typed - in an instruction manual" 0 <:#293,9025>54 80 118 10 1005 1342177280 "static" "A variable name" 0 54 94 118 10 1006 1342177280 "static" "The defining instance of a term" 0 54 108 118 10 1007 1342177280 "static" "A citation, typically italic" 0 END DIALOG <:f200,2Times New Roman,> <:f200,2Times New Roman,255,0,0>'Function to add a ADDRESS tag<:f> <:f200,2Times New Roman,>'***************************************************************************************<:f> <:f200,2Times New Roman,>FUNCTION AddAddress() <:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family; <:f200,2Times New Roman,> <:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family) <:f200,2Times New Roman,>Text=CurShade$() <:f200,2Times New Roman,>IF Text<<<;>"" Cut() <:f200,2Times New Roman,>ENDIF <:f200,2Times New Roman,>Field="<<ADDRESS<;>" <:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:f200,2Times New Roman,>Type(Field) <:f200,2Times New Roman,>FontChange(Name, Family, Color, Size) <:f200,2Times New Roman,>Type(Text) <:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:f200,2Times New Roman,>Type("<</ADDRESS<;>") <:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f> <:f200,2Times New Roman,> <:f200,2Times New Roman,>end function <:f200,2Times New Roman,> <:f200,2Times New Roman,><:p<* >> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add an image<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>FUNCTION AddImage() <:#240,9025><:f200,2Times New Roman,>DIM Previous(10)<:f> <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family; <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family) <:#240,9025><:f200,2Times New Roman,>for I=1 to 10<:f> <:#240,9025><:f200,2Times New Roman,> Previous(I) = GetGlobalArray$("PastImages",I) <:#240,9025><:f200,2Times New Roman,> if Previous(I)<<<;>"" FillEdit(9000, Previous(I)) <:#240,9025><:f200,2Times New Roman,> endif <:#240,9025><:f200,2Times New Roman,>next <:f> <:#240,9025><:f200,2Times New Roman,>FillEdit(9500,"BOTTOM") <:#240,9025><:f200,2Times New Roman,>FillEdit(9500,"MIDDLE") <:#240,9025><:f200,2Times New Roman,>FillEdit(9500,"TOP") <:#240,9025><:f200,2Times New Roman,>NetScape=GetGlobalVar$("HTMLNetScape") <:#240,9025><:f200,2Times New Roman,>IF NetScape=1 <:#240,9025><:f200,2Times New Roman,> FillEdit(9500,"LEFT") <:#240,9025><:f200,2Times New Roman,> FillEdit(9500,"RIGHT") <:#240,9025><:f200,2Times New Roman,> FillEdit(9500,"TEXTTOP")<:f> <:#240,9025><:f200,2Times New Roman,> FillEdit(9500,"ABSMIDDLE") <:#240,9025><:f200,2Times New Roman,> FillEdit(9500,"BASELINE") <:#240,9025><:f200,2Times New Roman,> FillEdit(9500,"ABSBOTTOM")<:f> <:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("ImgWIDTH") <:#240,9025><:f200,2Times New Roman,> FillEdit(8002,TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("ImgHEIGHT") <:#240,9025><:f200,2Times New Roman,> FillEdit(8003,TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("ImgBORDER") <:#240,9025><:f200,2Times New Roman,> FillEdit(8004,TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("ImgVSPACE") <:#240,9025><:f200,2Times New Roman,> FillEdit(8005,TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("ImgHSPACE") <:#240,9025><:f200,2Times New Roman,> FillEdit(8006,TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,> box=DialogBox("." "ADDIMAGE2") <:#240,9025><:f200,2Times New Roman,> IF box <<<;>1 <:#240,9025><:f200,2Times New Roman,> Exit Function <:#240,9025><:f200,2Times New Roman,> ENDIF<:f> <:#240,9025><:f200,2Times New Roman,>ELSE <:#240,9025><:f200,2Times New Roman,> box=DialogBox("." "ADDIMAGE1") <:#240,9025><:f200,2Times New Roman,> IF box <<<;>1 <:#240,9025><:f200,2Times New Roman,> Exit Function <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,>ENDIF<:f> <:#240,9025><:f200,2Times New Roman,>URL$=GetDialogField$(8000) <:#240,9025><:f200,2Times New Roman,>ALT$=GetDialogField$(8001)<:f> <:#240,9025><:f200,2Times New Roman,>ALT2$="" <:#240,9025><:f200,2Times New Roman,>IF ALT$<<<;>"" ALT2$=" ALT=""{ALT$}""" <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>ALIGN$=GetDialogField$(9500) <:#240,9025><:f200,2Times New Roman,>IF GetDialogField$(23)=1 ISMAP$=" ISMAP" <:#240,9025><:f200,2Times New Roman,>ELSE ISMAP$="" <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>Extra$="" <:#240,9025><:f200,2Times New Roman,>IF NetScape=1<:f> <:#240,9025><:f200,2Times New Roman,> TEMP$=GetDialogField$(8002) <:#240,9025><:f200,2Times New Roman,> SetGlobalVar("ImgWIDTH",TEMP$) <:#240,9025><:f200,2Times New Roman,> IF TEMP$<<<;>"" Extra$="{Extra$} WIDTH=""{TEMP$}""" <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,> TEMP$=GetDialogField$(8003) <:#240,9025><:f200,2Times New Roman,> SetGlobalVar("ImgHEIGHT",TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,> IF TEMP$<<<;>"" Extra$="{Extra$} HEIGHT=""{TEMP$}"""<:f> <:#240,9025><:f200,2Times New Roman,> ENDIF<:f> <:#240,9025><:f200,2Times New Roman,> TEMP$=GetDialogField$(8004) <:#240,9025><:f200,2Times New Roman,> SetGlobalVar("ImgBORDER",TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,> IF TEMP$<<<;>"" Extra$="{Extra$} BORDER=""{TEMP$}""" <:#240,9025><:f200,2Times New Roman,> ENDIF<:f> <:#240,9025><:f200,2Times New Roman,> TEMP$=GetDialogField$(8005) <:#240,9025><:f200,2Times New Roman,> SetGlobalVar("ImgVSPACE",TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,> IF TEMP$<<<;>"" Extra$="{Extra$} VSPACE=""{TEMP$}"""<:f> <:#240,9025><:f200,2Times New Roman,> E<:f><:f200,2Times New Roman,>NDIF<:f> <:#240,9025><:f200,2Times New Roman,> TEMP$=GetDialogField$(8006) <:#240,9025><:f200,2Times New Roman,> SetGlobalVar("ImgHSPACE",TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,> IF TEMP$<<<;>"" Extra$="{Extra$} HSPACE=""{TEMP$}"""<:f> <:#240,9025><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>Field="<<IMG SRC=""{URL$}""{ALT2$} ALIGN={ALIGN$}<:f><:f200,2Times New Roman,>{Extra$}<:f><:f200,2Times New Roman,>{ISMAP$}<:f><:f200,2Times New Roman,><;>" <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:#240,9025><:f200,2Times New Roman,>Type(Field) <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size) <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>Match=0 <:#240,9025><:f200,2Times New Roman,>for I=1 to 10 <:#240,9025><:f200,2Times New Roman,> if Previous(I)=URL$ Match=1 <:#240,9025><:f200,2Times New Roman,> endif <:#240,9025><:f200,2Times New Roman,>next <:#240,9025><:f200,2Times New Roman,>if Match=0 <:#240,9025><:f200,2Times New Roman,> for I=10 to 2 step -1 <:#240,9025><:f200,2Times New Roman,> N=I - 1 <:#240,9025><:f200,2Times New Roman,> SetGlobalArray("PastImages", I, Previous(N)) <:#240,9025><:f200,2Times New Roman,> next <:#240,9025><:f200,2Times New Roman,> SetGlobalArray("PastImages", 1, URL$) <:#240,9025><:f200,2Times New Roman,>endif<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>end function <:#240,9025><:f200,2Times New Roman,> <:#293,9025>DIALOG ADDIMAGE1 <:#293,9025>-2134900736 10 66 34 262 176 "" "" "Add Image" <:#586,9025>22 16 88 10 1000 1342177280 "static" "Enter URL of image file:" 0 <:#293,9025>174 92 64 40 9500 1344274434 "combobox" "" 0 <:#293,9025>138 92 36 10 1001 1342177280 "static" "Alignment:" 0 <:#293,9025>76 92 52 12 8001 1350631552 "edit" "" 0 <:#586,9025>22 90 50 28 1002 1342177280 "static" "Text displayed on text based browsers:" 0 <:#586,9025>22 120 100 10 23 1342242819 "button" "Picture is a sensitive map" 0 <:#293,9025>84 144 40 14 1 1342373889 "button" "OK" 0 <:#293,9025>140 144 40 14 2 1342373888 "button" "Cancel" 0 <:#293,9025>22 28 216 12 8000 1350631552 "edit" "" 0 <:#293,9025>22 42 216 40 9000 1352728577 "listbox" "" 0 <:#293,9025>END DIALOG <:#293,9025> <:#293,9025>DIALOG ADDIMAGE2 <:#293,9025>-2134900736 20 68 38 262 204 "" "" "Add Image" <:#586,9025>22 8 88 10 1000 1342177280 "static" "Enter URL of image file:" 0 <:#293,9025>144 76 64 40 9500 1344274434 "combobox" "" 0 <:#293,9025>108 78 36 10 1001 1342177280 "static" "Alignment:" 0 <:#293,9025>148 118 60 12 8001 1350631552 "edit" "" 0 <:#293,9025>108 116 36 18 1002 1342177280 "static" "Alternative Text:" 0 <:#586,9025>110 142 100 12 23 1342242819 "button" "Picture is a sensitive map" 0 <:#293,9025>84 172 40 14 1 1342373889 "button" "OK" 0 <:#293,9025>140 172 40 14 2 1342373888 "button" "Cancel" 0 <:#293,9025>22 18 214 12 8000 1350631552 "edit" "" 0 <:#293,9025>22 32 214 40 9000 1352728577 "listbox" "" 0 <:#293,9025>50 108 40 12 8002 1350631552 "edit" "" 0 <:#293,9025>50 124 40 12 8003 1350631552 "edit" "" 0 <:#293,9025>50 140 40 12 8004 1350631552 "edit" "" 0 <:#293,9025>50 76 40 12 8005 1350631552 "edit" "" 0 <:#293,9025>50 92 40 12 8006 1350631552 "edit" "" 0 <:#293,9025>22 110 22 10 1003 1342177280 "static" "Width" 0 <:#293,9025>22 126 22 10 1006 1342177280 "static" "Height" 0 <:#293,9025>22 142 24 10 1007 1342177280 "static" "Border" 0 <:#293,9025>22 78 26 10 1008 1342177280 "static" "VSpace" 0 <:#293,9025>22 94 26 10 1009 1342177280 "static" "HSpace" 0 <:#293,9025>END DIALOG <:f,2Times New Roman,><:p<* >> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a Tag<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,>FUNCTION AddTag(TagName)<:f> <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family; <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family) <:#240,9025><:f200,2Times New Roman,>Field="{TagName}<:f><:f200,2Times New Roman,>" <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:#240,9025><:f200,2Times New Roman,>Type(Field) <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f> <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,255,0,0> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a Horizontal Rule<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,>FUNCTION AddRule()<:f> <:#240,9025><:f200,2Times New Roman,>NetScape=GetGlobalVar$("HTMLNetScape") <:#240,9025><:f200,2Times New Roman,>IF NetScape=1<:f> <:#240,9025><:f200,2Times New Roman,> Extra$="" <:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("HRThick") <:#240,9025><:f200,2Times New Roman,> IF TEMP$<<<;>"" Extra$="{Extra$} SIZE=""{TEMP$}""" <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("HRWidth") <:#240,9025><:f200,2Times New Roman,> IF TEMP$<<<;>"" Extra$="{Extra$} WIDTH=""{TEMP$}""" <:#240,9025><:f200,2Times New Roman,> ENDIF<:f> <:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("HRAlign") <:#240,9025><:f200,2Times New Roman,> IF TEMP$<<<;>"" Extra$="{Extra$} ALIGN=""{TEMP$}""" <:#240,9025><:f200,2Times New Roman,> ENDIF<:f> <:#240,9025><:f200,2Times New Roman,> NoShade=GetGlobalVar$("HRShade") <:#240,9025><:f200,2Times New Roman,> IF NoShade=1 Extra$="{Extra$} NOSHADE" <:#240,9025><:f200,2Times New Roman,> ENDIF<:f> <:#240,9025><:f200,2Times New Roman,> AddTag("<<HR{Extra$}<;><[>Enter]") <:#240,9025><:f200,2Times New Roman,>ELSE <:#240,9025><:f200,2Times New Roman,> AddTag("<<HR<;><:f><:f200,2Times New Roman,><[>Enter]<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> <:#293,9025> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a line break<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,>FUNCTION AddBreak()<:f> <:#240,9025><:f200,2Times New Roman,>NetScape=GetGlobalVar$("HTMLNetScape") <:#240,9025><:f200,2Times New Roman,>IF NetScape=1<:f> <:#240,9025><:f200,2Times New Roman,> Extra$="" <:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("BRClear") <:#240,9025><:f200,2Times New Roman,> IF (TEMP$<<<;>"<<NULL<;>")AND(<:f><:f200,2Times New Roman,>TEMP$<<<;>"")<:f><:f200,2Times New Roman,> Extra$="{Extra$} CLEAR=""{TEMP$}""" <:#240,9025><:f200,2Times New Roman,> ENDIF<:f> <:#240,9025><:f200,2Times New Roman,> AddTag("<<BR{Extra$}<;><:f><:f200,2Times New Roman,><[>Enter]<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,>ELSE <:#240,9025><:f200,2Times New Roman,> AddTag("<<BR<;><:f><:f200,2Times New Roman,><[>Enter]<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> <:#293,9025> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a no break<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,>FUNCTION AddNOBR()<:f> <:#240,9025><:f200,2Times New Roman,>CALL TextStyle<:f200,2Times New Roman,>("NOBR<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> <:#293,9025> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a word break<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>FUNCTION AddWBR()<:f> <:#240,9025><:f200,2Times New Roman,>AddTag("<<WBR<;><:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> <:p<* >> <:#240,9025><:f200,2Times New Roman,255,0,0>'Toggle between fixed to variable pitch text<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>FUNCTION TextEffects( Effect )<:f> <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family; <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>Effect=lcase$(Effect) <:#240,9025><:f200,2Times New Roman,>SWITCH Effect <:#240,9025><:f200,2Times New Roman,> CASE "bold" <:#240,9025><:f200,2Times New Roman,> Bo<:f200,2Times New Roman,>ld() <:#240,9025><:f200,2Times New Roman,> CASE "italic" <:#240,9025><:f200,2Times New Roman,> Italic() <:#240,9025><:f200,2Times New Roman,> CASE "pitch" <:#240,9025><:f200,2Times New Roman,> GetCurFontInfo(&Name,&Color,&Size,&Family)<:f> <:#240,9025><:f200,2Times New Roman,> IF Name="Times New Roman" Name="Courier New" <:#240,9025><:f200,2Times New Roman,> ELSE <:f><:f200,2Times New Roman,> Name="Times New Roman" <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,> FontChange(Name, Family, Color, Size)<:f> <:#240,9025><:f200,2Times New Roman,> CASE "blink" <:#240,9025><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,> CALL TextStyle("BLINK")<:f> <:#240,9025><:f200,2Times New Roman,>ENDSWITCH <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,255,0,0> <:#240,9025><:f200,2Times New Roman,255,0,0> <:#240,9025><:f200,2Times New Roman,255,0,0>'Insert text styles<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>FUNCTION TextStyle( Style)<:f> <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family; <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)<:f> <:#240,9025><:f200,2Times New Roman,>Text=CurShade$() <:#240,9025><:f200,2Times New Roman,>IF Text<<<;>"" Cut() <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:#240,9025><:f200,2Times New Roman,>Type("<<{Style}<;>") <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size) <:#240,9025><:f200,2Times New Roman,>Type(Text) <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200) <:#240,9025><:f200,2Times New Roman,>Type("<</{Style}<;>")<:f> <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,255,0,0>'Change paragraph style<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,>FUNCTION ParaStyle() <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>SelectStyle <:#240,9025><:f200,2Times New Roman,> <:f200,2Times New Roman,>END FUNCTION<:p<* >><:f><:f200,2Times New Roman,255,0,0>'Set Options<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,>FUNCTION Options() <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>Options=0 <:#240,9025><:f200,2Times New Roman,>TEMP$=<:f><:f200,2Times New Roman,>GetGlobalVar$("HRAlign<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,>FillEdit(9500,TEMP$)<:f><:f200,2Times New Roman,> <:f200,2Times New Roman,255,0,0> 'Fill Alignment List<:f> <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "LEFT" FillEdit(9500,"LEFT<:f><:f200,2Times New Roman,>") ENDIF<:f> <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "RIGHT" FillEdit(9500,"RIGHT<:f><:f200,2Times New Roman,>") ENDIF<:f> <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "CENTER" FillEdit(9500,"CENTER<:f><:f200,2Times New Roman,>") ENDIF<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>TEMP$=<:f><:f200,2Times New Roman,>GetGlobalVar$("BRClear<:f><:f200,2Times New Roman,>")<:f> <:#240,9025><:f200,2Times New Roman,>FillEdit(9501,TEMP$)<:f><:f200,2Times New Roman,> <:f200,2Times New Roman,255,0,0> 'Fill Clear List<:f> <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "<<NULL<;>" FillEdit(9501,"<<NULL<;>") ENDIF<:f> <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "ALL" <:f><:f200,2Times New Roman,>FillEdit(9501,"ALL")<:f><:f200,2Times New Roman,> ENDIF<:f> <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "RIGHT" <:f><:f200,2Times New Roman,>FillEdit(9501,"RIGHT<:f><:f200,2Times New Roman,>")<:f><:f200,2Times New Roman,> ENDIF<:f> <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "LEFT" <:f><:f200,2Times New Roman,>FillEdit(9501,"LEFT")<:f><:f200,2Times New Roman,> ENDIF<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HTMLNetScape") <:#240,9025><:f200,2Times New Roman,>FillEdit(23,TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HRShade") <:#240,9025><:f200,2Times New Roman,>FillEdit(25,TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,>'TEMP$=GetProfileString$(<:f><:f200,2Times New Roman,>"HTML", "HTMLBrowser", "AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,>'FillEdit(8000,TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HRThick") <:#240,9025><:f200,2Times New Roman,>FillEdit(8001,TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HRWidth") <:#240,9025><:f200,2Times New Roman,>FillEdit(8002,TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("ConvertDialog") <:#240,9025><:f200,2Times New Roman,>FillEdit(20,TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "OPTIONS")<:f> <:#240,9025><:f200,2Times New Roman,>IF box<<<;>1 <:#240,9025><:f200,2Times New Roman,> EXIT FUNCTION <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(9500) <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRAlign",TEMP$) <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(9501) <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("BRClear",TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,>'TEMP$=GetDialogField$(8000) <:#240,9025><:f200,2Times New Roman,>'WriteProfileString("HTML","HTMLBrowser",TEMP$,"AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(8001) <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRThick",TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(8002) <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRWidth",TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(25) <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRShade",TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(23) <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HTMLNetScape",TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(20) <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("ConvertDialog",TEMP$)<:f> <:#240,9025><:f200,2Times New Roman,>Options=1 <:#240,9025><:f200,2Times New Roman,>END FUNCTION <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,> <:#278,9025>DIALOG OPTIONS <:#556,9025>-2134376448 15 94 48 254 140 "" "" "AmiWeb Options" <:#556,9025>132 68 98 12 23 1342242819 "button" "Use NetScape Extensions" 0 <:#278,9025>8 0 116 90 24 1342308359 "button" "<<HR<;> Options" 0 <:#278,9025>20 20 40 10 1000 1342177280 "static" "Thickness" 0 <:#278,9025>20 36 40 10 1001 1342177280 "static" "Width" 0 <:#278,9025>20 52 40 10 1002 1342177280 "static" "Alignment" 0 <:#278,9025>20 66 50 12 25 1342242819 "button" "No Shade" 0 <:#278,9025>60 18 50 12 8001 1350631552 "edit" "" 0 <:#278,9025>60 34 50 12 8002 1350631552 "edit" "" 0 <:#278,9025>60 50 52 40 9500 1344274435 "combobox" "" 0 <:#278,9025>132 2 100 60 26 1342308359 "button" "<<BR<;> Options" 0 <:#278,9025>174 20 52 40 9501 1344274435 "combobox" "" 0 <:#278,9025>138 22 22 10 1003 1342177280 "static" "Clear" 0 <:#278,9025>78 108 40 14 1 1342373889 "button" "OK" 0 <:#278,9025>138 108 40 14 2 1342373888 "button" "Cancel" 0 <:#556,9025>132 80 114 18 20 1342242819 "button" "Don't show Convert dialog box" 0 <:#278,9025>END DIALOG <:f200,2Times New Roman,><:p<* >> <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to run converter on file<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>FUNCTION ConvertFile() <:#240,9025><:f200,2Times New Roman,0,0,0> <:#240,9025><:f200,2Times New Roman,0,0,0>ConvertFile=0 <:#240,9025><:f200,2Times New Roman,0,0,0>DoDialog=0 <:#240,9025><:f200,2Times New Roman,0,0,0>FileName$=GetOpenFileName$() <:#240,9025><:f200,2Times New Roman,0,0,0>IF FileName$="" <:#240,9025><:f200,2Times New Roman,0,0,0> IF SaveAs <<<;> 1 EXIT FUNCTION <:#240,9025><:f200,2Times New Roman,0,0,0> ENDIF <:#240,9025><:f200,2Times New Roman,0,0,0>ELSE Save() <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF <:#240,9025><:f200,2Times New Roman,0,0,0>DestDir$=GetDocVar("Destination") <:#240,9025><:f200,2Times New Roman,0,0,0>IF DestDir$="" <:#240,9025><:f200,2Times New Roman,0,0,0> DoDialog=1 <:#240,9025><:f200,2Times New Roman,0,0,0> <:f200,2Times New Roman,0,0,0>DestDir$=GetGlobalVar$("HTMLDir") <:#240,9025><:f200,2Times New Roman,0,0,0> SetDocVar("Destination",DestDir$) <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF <:#240,9025><:f200,2Times New Roman,0,0,0>Name$=GetDocVar("DestName") <:#240,9025><:f200,2Times New Roman,0,0,0>IF Name$="" <:#240,9025><:f200,2Times New Roman,0,0,0> DoDialog=1 <:#240,9025><:f200,2Times New Roman,0,0,0> FileName$=GetOpenFileName$() <:#240,9025><:f200,2Times New Roman,0,0,0> Position=1 <:#240,9025><:f200,2Times New Roman,0,0,0> Finished=0 <:#240,9025><:f200,2Times New Roman,0,0,0> WHILE Finished=0 <:#240,9025><:f200,2Times New Roman,0,0,0> LastPos=Position <:#240,9025><:f200,2Times New Roman,0,0,0> Position=Strchr(Position, FileName$, "\")+1 <:#240,9025><:f200,2Times New Roman,0,0,0> IF Position=0 Finished=1 <:#240,9025><:f200,2Times New Roman,0,0,0> ENDIF <:#240,9025><:f200,2Times New Roman,0,0,0> WEND<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> NameDot$=MID$(FileName$, LastPos, LEN(FileName$)-LastPos+1)<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> Dot=Strchr(1,NameDot$,".") <:#240,9025><:f200,2Times New Roman,0,0,0> IF Dot<<<;>(-1) <:f200,2Times New Roman,0,0,0> Name$=LEFT$(NameDot$, <:f200,2Times New Roman,0,0,0>Dot+(-1)<:f200,2Times New Roman,0,0,0>) <:#240,9025><:f200,2Times New Roman,0,0,0> ELSE Name$=NameDot$ <:#240,9025><:f200,2Times New Roman,0,0,0> ENDIF <:#240,9025><:f200,2Times New Roman,0,0,0> Name$="{Name$}.HTM"<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> <:#240,9025><:f200,2Times New Roman,0,0,0>UseBreaks=GetProfileString$("HTML","UseBreaks","AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>NoDialog=GetGlobalVar$("ConvertDialog") <:#240,9025><:f200,2Times New Roman,0,0,0>IF(NoDialog="") <:#240,9025><:f200,2Times New Roman,0,0,0> NoDialog=FALSE <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF <:#240,9025><:f200,2Times New Roman,0,0,0>IF (NoDialog=FALSE OR DoDialog=1) <:#240,9025><:f200,2Times New Roman,0,0,0> FillEdit(8001,Name$) <:#240,9025><:f200,2Times New Roman,0,0,0> FillEdit(8000,DestDir$) <:#240,9025><:f200,2Times New Roman,0,0,0> FillEdit(20,UseBreaks) <:#240,9025><:f200,2Times New Roman,0,0,0> IF<:f200,2Times New Roman,0,0,0> DialogBox(".", "CONVERTFILE") <<<;> 1 EXIT FUNCTION <:#240,9025><:f200,2Times New Roman,0,0,0> ENDIF <:#240,9025><:f200,2Times New Roman,0,0,0> Name$=GetDialogField$(8001) <:#240,9025><:f200,2Times New Roman,0,0,0> DestDir$=GetDialogField$(8000) <:#240,9025><:f200,2Times New Roman,0,0,0> UseBreaks=<:f><:f200,2Times New Roman,0,0,0>GetDialogField$(20)<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> WriteProfileString("HTML","UseBreaks",UseBreaks,"AMIPRO.INI") <:#240,9025><:f200,2Times New Roman,0,0,0> IF RIGHT$(DestDir$,1) <<<;> "\" DestDir$="{DestDir$}\" <:#240,9025><:f200,2Times New Roman,0,0,0> ENDIF <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF <:#240,9025><:f200,2Times New Roman,0,0,0>SetGlobalVar("HTMLDir",DestDir$) <:#240,9025><:f200,2Times New Roman,0,0,0>SetDocVar("Destination",DestDir$) <:#240,9025><:f200,2Times New Roman,0,0,0>SetDocVar("DestName",Name$)<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> <:#240,9025><:f200,2Times New Roman,0,0,0>RetVal=Exec("<++>wn_sm2ht.exe<-+>", "{FileName$} {DestDir$}{Name$}", 1) <:#240,9025><:f200,2Times New Roman,0,0,0>IF RetVal<<=31 <:#240,9025><:f200,2Times New Roman,0,0,0> SWITCH RetVal <:#240,9025><:f200,2Times New Roman,0,0,0> CASE (0) <:#480,9025><:f200,2Times New Roman,0,0,0> Message("The system is out of memory or resources<:f><:f200,2Times New Roman,0,0,0>- close an application and try again","Error") <:#240,9025><:f200,2Times New Roman,0,0,0> CASE (2) <:#240,9025><:f200,2Times New Roman,0,0,0> Message("Executable file not found<:f><:f200,2Times New Roman,0,0,0>","Error")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> CASE (3) <:#240,9025><:f200,2Times New Roman,0,0,0> Message("Executable path not found<:f><:f200,2Times New Roman,0,0,0>","Error")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> CASE (11) <:#240,9025><:f200,2Times New Roman,0,0,0> Message("Bad EXE file<:f><:f200,2Times New Roman,0,0,0>","Error")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> DEFAULT<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> Message("Unknown Error- {RetVal}","Error") <:#240,9025><:f200,2Times New Roman,0,0,0> ENDSWITCH <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF <:#240,9025><:f200,2Times New Roman,0,0,0>ConvertFile=1 <:f200,2Times New Roman,0,0,0>FileChanged(1,1) <:f200,2Times New Roman,0,0,0>END FUNCTION<:f> <:#245,9025><:f200,2NewCenturySchlbk,0,0,0> <:#245,9025><:f200,2NewCenturySchlbk,0,0,0> <:#278,9025>DIALOG CONVERTFILE <:#556,9025>-2134900736 7 108 68 232 94 "" "" "Convert to HTML" <:#278,9025>16 46 124 12 8000 1350631552 "edit" "" 0 <:#556,9025>16 35 108 10 1000 1342177280 "static" "Destination Directory:" 0 <:#556,9025>15 6 98 10 1001 1342177280 "static" "Destination Filename:" 0 <:#278,9025>16 16 83 12 8001 1350631552 "edit" "" 0 <:#278,9025>175 38 40 14 2 1342373888 "button" "Cancel" 0 <:#278,9025>175 15 40 14 1 1342373889 "button" "OK" 0 <:#556,9025>16 72 100 12 20 1342242819 "button" "Use <<BR<;>s for linebreaks" 0 END DIALOG<:p<* >> <:#240,9025><:f200,2Times New Roman,255,0,0>'Background setting<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>FUNCTION BackGround() <:#240,9025><:f200,2Times New Roman,0,0,0> <:#240,9025><:f200,2Times New Roman,0,0,0>BGCOLOR$=GetDocVar("BGCOLOR")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>BODYTEXT$=GetDocVar("BODYTEXT<:f><:f200,2Times New Roman,0,0,0>")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>BACKGROUND$=GetDocVar("BACKGROUND<:f><:f200,2Times New Roman,0,0,0>")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>LINKCOL$=GetDocVar("LINKCOL<:f><:f200,2Times New Roman,0,0,0>")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>VLINKCOL$=GetDocVar("VLINKCOL<:f><:f200,2Times New Roman,0,0,0>")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>ALINKCOL$=GetDocVar("ALINKCOL<:f><:f200,2Times New Roman,0,0,0>")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8001, BGCOLOR$)<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8002, BODYTEXT$<:f><:f200,2Times New Roman,0,0,0>)<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8003, BACKGROUND$<:f><:f200,2Times New Roman,0,0,0>)<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8004, LINKCOL$<:f><:f200,2Times New Roman,0,0,0>)<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8005, VLINKCOL$<:f><:f200,2Times New Roman,0,0,0>)<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8006, ALINKCOL$<:f><:f200,2Times New Roman,0,0,0>)<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> <:#240,9025><:f200,2Times New Roman,0,0,0> <:#240,9025><:f200,2Times New Roman,0,0,0>IF<:f200,2Times New Roman,0,0,0> DialogBox(".", "ColourSettings") <<<;> 1 EXIT FUNCTION<:f> <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>BGCOLOR$ = GetDialogField$(8001)<:f> <:#240,9025><:f200,2Times New Roman,>BODYTEXT$ = GetDialogField$(8002)<:f> <:#240,9025><:f200,2Times New Roman,>BACKGROUND$ = GetDialogField$(8003)<:f> <:#240,9025><:f200,2Times New Roman,>LINKCOL$ = GetDialogField$(8004)<:f> <:#240,9025><:f200,2Times New Roman,>VLINKCOL$ = GetDialogField$(8005)<:f> <:#240,9025><:f200,2Times New Roman,>ALINKCOL$ = GetDialogField$(8006)<:f> <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>SetDocVar("BGCOLOR",BGCOLOR$)<:f> <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("BODYTEXT",BODYTEXT$)<:f> <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("BACKGROUND",BACKGROUND<:f><:f200,2Times New Roman,>$)<:f> <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("LINKCOL",LINKCOL<:f><:f200,2Times New Roman,>$)<:f> <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("VLINKCOL<:f><:f200,2Times New Roman,>",VLINKCOL<:f><:f200,2Times New Roman,>$)<:f> <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("ALINKCOL<:f><:f200,2Times New Roman,>",ALINKCOL<:f><:f200,2Times New Roman,>$)<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> <:#240,9025><:f200,2Times New Roman,0,0,0>FileChanged(1,1)<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f> <:#240,9025><:f200,2Times New Roman,255,0,0> <:#278,9025>DIALOG ColourSettings <:#556,9025>-2134900736 14 74 56 212 122 "" "" "Colour Settings and Background Image" <:#278,9025>50 8 50 12 8001 1350631552 "edit" "" 0 <:#278,9025>50 28 50 12 8002 1350631552 "edit" "" 0 <:#278,9025>8 74 194 12 8003 1350631552 "edit" "" 0 <:#278,9025>152 8 50 12 8004 1350631552 "edit" "" 0 <:#278,9025>152 28 50 12 8005 1350631552 "edit" "" 0 <:#278,9025>152 48 50 12 8006 1350631552 "edit" "" 0 <:#278,9025>58 96 40 14 1 1342373889 "button" "OK" 0 <:#556,9025>6 6 40 16 1000 1342177280 "static" "Background Colour:" 0 <:#278,9025>6 26 38 22 1001 1342177280 "static" "Body Text Colour:" 0 <:#278,9025>108 8 40 10 1002 1342177280 "static" "Link Colour:" 0 <:#556,9025>106 24 44 16 1003 1342177280 "static" "Visited Link Colour:" 0 <:#556,9025>106 46 42 16 1004 1342177280 "static" "Active Link Colour:" 0 <:#556,9025>8 64 80 8 1005 1342177280 "static" "Background Image URL:" 0 <:#278,9025>130 96 40 14 2 1342373888 "button" "Cancel" 0 <:#278,9025>END DIALOG <:#240,9025><:f200,2Times New Roman,255,0,0> <:#240,9025><:f200,2Times New Roman,255,0,0> <:#240,9025><:f200,2Times New Roman,255,0,0> <:#279,9025><:f,2TimesNewRomanPS,> <:#240,9025><:f200,2Times New Roman,255,0,0> <:#240,9025><:f200,2Times New Roman,0,0,0> <:f200,2Times New Roman,255,0,0><:p<* >> <:#240,9025><:f200,2Times New Roman,255,0,0>'Run browser using this file<:f> <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f> <:#240,9025><:f200,2Times New Roman,>FUNCTION TestDoc() <:#240,9025><:f200,2Times New Roman,> <:#240,9025><:f200,2Times New Roman,>Browser$= GetProfileString$("HTML", "HTMLBrowser", "AMIPRO.INI") <:#240,9025><:f200,2Times New Roman,>WHILE (Browser$="" ) <:#240,9025><:f200,2Times New Roman,> Message("You need to setup a web browser under Options","Test Document") <:#240,9025><:f200,2Times New Roman,> IF CALL Options() <<<;> 1 <:f> <:#240,9025><:f200,2Times New Roman,> EXIT FUNCTION <:#240,9025><:f200,2Times New Roman,> ENDIF <:#240,9025><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>Browser$= GetProfileString$("HTML", "HTMLBrowser", "AMIPRO.INI")<:f> <:#240,9025><:f200,2Times New Roman,>WEND <:#240,9025><:f200,2Times New Roman,0,0,0>Name$=GetDocVar("DestName")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>DestDir$=GetDocVar("Destination")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0>IF Name$="" OR DestDir$="" <:#240,9025><:f200,2Times New Roman,0,0,0> IF CALL ConvertFile() <<<;> 1 <:#240,9025><:f200,2Times New Roman,0,0,0> EXIT FUNCTION <:#240,9025><:f200,2Times New Roman,0,0,0> ENDIF <:#240,9025><:f200,2Times New Roman,0,0,0> Name$=GetDocVar("DestName")<:f> <:#240,9025><:f200,2Times New Roman,0,0,0> DestDir$=GetDocVar("Destination")<:f> <:#240,9025><:f200,2Times New Roman,>ENDIF <:#240,9025><:f200,2Times New Roman,0,0,0> Message("Blah <:f><:f200,2Times New Roman,>{Browser$}{DestDir$}{Name$}<:f><:f200,2Times New Roman,0,0,0>")<:f> <:#240,9025><:f200,2Times New Roman,>Exec("{Browser$}","{DestDir$}{Name$}",1) <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f> > [Embedded] 00083797 > [macsum] 41 CreateHTML 0 0 8 2 ADDTITLE 541 0 -1 28 InitHTML 811 0 7 38 AddVariable 1836 1 2 86 InitHREFTable 1940 0 5 94 InitImageTable 2272 0 5 116 InitHotKeys 2613 0 3 136 InitMenus 3129 0 3 167 CloseHTML 5936 0 7 239 DelVariable 7028 1 2 287 WriteHREF 7130 0 3 296 WriteIMAGES 7330 0 3 306 AddHREF 7536 0 13 317 ADDHREF 8527 0 -1 361 AddAuthor 8825 0 13 372 ADDAUTHOR 9949 0 -1 426 AddComment 10527 0 1 441 AddDateTime 10566 0 1 447 AddName 10602 0 9 453 ADDNAME 10976 0 -1 477 IconTextStyle 11225 0 3 486 TextTypes 11809 0 -1 514 AddAddress 12869 0 7 539 AddImage 13155 0 19 561 ADDIMAGE1 15329 0 -1 654 ADDIMAGE2 15942 0 -1 668 AddTag 17003 1 6 694 AddRule 17132 0 5 707 AddBreak 17617 0 4 732 AddNOBR 17888 0 1 748 AddWBR 17933 0 1 756 TextEffects 17976 1 5 764 TextStyle 18402 1 6 788 ParaStyle 18665 0 1 808 Options 18699 0 3 814 OPTIONS 19801 0 -1 869 ConvertFile 20643 0 13 890 CONVERTFILE 22412 0 -1 968 BackGround 22861 0 7 980 ColourSettings 23505 0 -1 1018 TestDoc 24316 0 4 1044 [macse] 14 CreateHTML 0 802 13 8 1 5 0 8 2 0 14 "{1}" 13 8 3 5 1 6 3 18 4 12 00000138 10 00000232 5 -1 6 3 3 0 8 3 10 00000062 0 15 "{1}" "{3}" 1 13 7 "\" 18 0 6 2 5 0 18 0 1 1 11 00000219 6 3 8 2 10 00000104 6 2 5 0 18 1 11 00000323 0 14 "{1}" 13 6 2 3 1 0 807 "{1}" [X] 13 8 4 6 4 8 1 7 "{1}!InitHTML" 8 5 2 463 1 "{1}!InitHTML" "{1}!CloseHTML" 6 16 "{5}" 0 26 "." "ADDTITLE" 13 8 6 6 6 5 1 18 1 11 00000469 6 0 15 9 0 27 8000 13 8 7 2 377 1 1 0 6 "[9]{7}" 0 6 "[16420]" 6 0 15 9 DIALOG ADDTITLE -2134900736 4 78 55 160 90 "" "" "Document Title" 15 18 127 12 8000 1350631552 "edit" "" 0 15 8 82 10 1000 1342177280 "static" "Enter Title of Document:" 0 16 54 40 14 1 1342373889 "button" "OK" 0 100 55 40 14 2 1342373888 "button" "Cancel" 0 14 InitHTML 0 299 13 8 1 6 1 5 0 18 3 11 00000359 6 1 21 2 [X] 0 300 &2 5 0 8 3 5 1 8 4 6 1 6 4 18 2 12 00000178 10 00000247 5 1 6 4 3 0 8 4 10 00000103 6 4 22 2 7 "HTMLActive" 18 0 11 00000234 5 1 8 3 10 00000145 6 3 5 1 18 0 11 00000359 0 265 "HTMLDocs" 13 8 5 6 5 5 1 3 0 8 5 0 264 "HTMLDocs" "{5}" 6 0 15 9 0 271 "HTMLDir" 1 0 271 "HTMLActive" 1 0 271 "HTMLDocs" 1 0 264 "HTMLDocs" 1 16 InitHREFTable 16 InitImageTable 16 InitHotKeys 16 InitMenus 0 286 "HTML" "HTMLDir" "AMIPRO.INI" 13 8 6 6 6 7 "" 18 0 11 00000599 0 268 13 8 6 0 264 "HTMLDir" "{6}" 16 AddVariable "ConvertDialog" 16 AddVariable "HTMLNetScape" 16 AddVariable "BRClear" 16 AddVariable "HRThick" 16 AddVariable "HRAlign" 16 AddVariable "HRWidth" 16 AddVariable "HRShade" 16 AddVariable "AuthNoComma" 16 AddVariable "AuthNoRule" 16 AddVariable "ImgHSPACE" 16 AddVariable "ImgVSPACE" 16 AddVariable "ImgWIDTH" 16 AddVariable "ImgHEIGHT" 16 AddVariable "ImgBORDER" 6 0 15 9 14 AddVariable 0 271 "{0}" 1 0 286 "HTML" "{0}" "AMIPRO.INI" 13 8 2 0 264 "{0}" "{2}" 6 1 15 9 14 InitHREFTable 0 271 "PastURLs" 10 5 1 8 1 5 1 8 2 6 2 5 1 18 0 11 00000320 7 "URL{1}" 8 3 0 286 "HTML" "{3}" "AMIPRO.INI" 13 8 4 6 4 7 "" 18 0 11 00000217 0 272 "PastURLs" "{1}" "" 10 00000247 0 272 "PastURLs" "{1}" "{4}" 6 1 5 1 3 0 8 1 6 1 5 10 18 3 11 00000307 5 0 8 2 10 00000059 6 0 15 9 14 InitImageTable 0 271 "PastImages" 10 5 1 8 1 5 1 8 2 6 2 5 1 18 0 11 00000329 7 "IMAGE{1}" 8 3 0 286 "HTML" "{3}" "AMIPRO.INI" 13 8 4 6 4 7 "" 18 0 11 00000224 0 272 "PastImages" "{1}" "" 10 00000256 0 272 "PastImages" "{1}" "{4}" 6 1 5 1 3 0 8 1 6 1 5 10 18 3 11 00000316 5 0 8 2 10 00000062 6 0 15 9 14 InitHotKeys 0 802 13 8 1 7 "{1}!AddHREF" 8 2 2 422 1 20552 "" "{2}" 7 "{1}!AddName" 8 2 2 422 1 20558 "" "{2}" 7 "{1}!AddImage" 8 2 2 422 1 20553 "" "{2}" 7 "{1}!AddAddress" 8 2 2 422 1 20545 "" "{2}" 7 "{1}!AddRule" 8 2 2 422 1 20562 "" "{2}" 7 "{1}!AddBreak" 8 2 2 422 1 20546 "" "{2}" 7 "{1}!ConvertFile" 8 2 2 422 1 20547 "" "{2}" 7 "{1}!AddAuthor" 8 2 2 422 1 20545 "" "{2}" 7 "{1}!Options" 8 2 2 422 1 20559 "" "{2}" 7 "{1}!BackGround" 8 2 2 422 1 123 "" "{2}" 6 0 15 9 14 InitMenus 0 802 13 8 1 0 528 1 3 "HTM&L" 0 524 1 "HTM&L" "Elements" 7 "{1}!ParaStyle" 8 2 0 516 1 "HTM&L" "Paragraph Style" "{2}" "Select Paragraph Style" 0 524 1 "HTM&L" "Text Styles" 0 524 1 "HTM&L" "Text Effects" 7 "{1}!BackGround" 8 2 0 516 1 "HTM&L" "Set Background etc. F12" "{2}" "Set Background Image and colours" 7 "{1}!ConvertFile" 8 2 0 516 1 "HTM&L" "Convert File ^ + SHIFT C" "{2}" "Convert file to HTML" 7 "{1}!Options" 8 2 0 516 1 "HTM&L" "Set Options ^ + SHIFT O" "{2}" "Set Options" 7 "{1}!AddHREF" 8 2 0 525 1 "HTM&L" "Elements" "Add HREF Anchor ^ + SHIFT H" "{2}" "Add HREF Anchor" 7 "{1}!AddName" 8 2 0 525 1 "HTM&L" "Elements" "Add NAME Anchor ^ + SHIFT N" "{2}" "Add NAME Anchor" 7 "{1}!AddImage" 8 2 0 525 1 "HTM&L" "Elements" "Add IMAGE ^ + SHIFT I" "{2}" "Add IMAGE" 7 "{1}!AddAddress" 8 2 0 525 1 "HTM&L" "Elements" "Add ADDRESS ^ + SHIFT A" "{2}" "Add Address" 7 "{1}!AddRule" 8 2 0 525 1 "HTM&L" "Elements" "Add RULE ^ + SHIFT R" "{2}" "Add Horizontal Rule" 7 "{1}!AddBreak" 8 2 0 525 1 "HTM&L" "Elements" "Add BREAK ^ + SHIFT B" "{2}" "Add Line Break" 7 "{1}!AddNOBR" 8 2 0 525 1 "HTM&L" "Elements" "Add NOBR " "{2}" "Add No Break Tag" 7 "{1}!AddWBR" 8 2 0 525 1 "HTM&L" "Elements" "Add WBR " "{2}" "Add Word Break Tag" 7 "{1}!AddAuthor" 8 2 0 525 1 "HTM&L" "Elements" "Add Author ^ + SHIFT A" "{2}" "Add Author to text" 7 "{1}!AddComment" 8 2 0 525 1 "HTM&L" "Elements" "Add Comment" "{2}" "Add Comment/Note to text" 7 "{1}!AddDateTime" 8 2 0 525 1 "HTM&L" "Elements" "Add Date/Time" "{2}" "Add Date/Time to text" 7 "{1}!TextStyle(EM)" 8 2 0 525 1 "HTM&L" "Text Styles" "Emphasis" "{2}" "Emphasis text style" 7 "{1}!TextStyle(STRONG)" 8 2 0 525 1 "HTM&L" "Text Styles" "Strong" "{2}" "Strong text style" 7 "{1}!TextStyle(CODE)" 8 2 0 525 1 "HTM&L" "Text Styles" "Code" "{2}" "Code listings style" 7 "{1}!TextStyle(SAMP)" 8 2 0 525 1 "HTM&L" "Text Styles" "Sample" "{2}" "Sample text style" 7 "{1}!TextStyle(KBD)" 8 2 0 525 1 "HTM&L" "Text Styles" "KBD" "{2}" "Text typed by user" 7 "{1}!TextStyle(VAR)" 8 2 0 525 1 "HTM&L" "Text Styles" "VAR" "{2}" "A variable name" 7 "{1}!TextStyle(DFN)" 8 2 0 525 1 "HTM&L" "Text Styles" "DFN" "{2}" "The defining instance of a term" 7 "{1}!TextStyle(CITE)" 8 2 0 525 1 "HTM&L" "Text Styles" "CITE" "{2}" "A citation" 7 "{1}!TextEffects(""BOLD"")" 8 2 0 525 1 "HTM&L" "Text Effects" "BOLD" "{2}" "Bold text" 7 "{1}!TextEffects(""ITALIC"")" 8 2 0 525 1 "HTM&L" "Text Effects" "ITALIC" "{2}" "Italic text" 7 "{1}!TextEffects(""PITCH"")" 8 2 0 525 1 "HTM&L" "Text Effects" "Toggle Pitch " "{2}" "Toggle between fixed and variable pitch" 7 "{1}!TextEffects(""BLINK"")" 8 2 0 525 1 "HTM&L" "Text Effects" "BLINK" "{2}" "Blinking text" 6 0 15 9 14 CloseHTML 0 299 13 8 1 6 1 5 0 18 0 11 00000071 6 0 15 9 6 1 21 2 [X] 0 300 &2 5 0 8 3 5 1 8 4 6 1 6 4 18 2 12 00000191 10 00000260 5 1 6 4 3 0 8 4 10 00000116 6 4 22 2 7 "HTMLActive" 18 0 11 00000247 5 1 8 3 10 00000158 6 3 5 1 18 0 11 00001080 0 265 "HTMLDocs" 13 8 5 6 5 5 1 18 3 11 00000401 6 5 5 1 3 1 8 5 0 264 "HTMLDocs" "{5}" 6 0 15 9 16 WriteHREF 16 WriteIMAGES 0 265 "HTMLDir" 13 8 6 0 287 "HTML" "HTMLDir" "{6}" "AMIPRO.INI" 0 265 "HTMLNetScape" 13 8 6 0 287 "HTML" "HTMLNetScape" "{6}" "AMIPRO.INI" 0 266 "HTMLDocs" 0 266 "HTMLActive" 0 266 "PastURLs" 0 266 "PastImages" 0 266 "HTMLDir" 16 DelVariable "HTMLNetScape" 16 DelVariable "ConvertDialog" 16 DelVariable "BRClear" 16 DelVariable "HRThick" 16 DelVariable "HRAlign" 16 DelVariable "HRWidth" 16 DelVariable "HRShade" 16 DelVariable "AuthNoComma" 16 DelVariable "AuthNoRule" 16 DelVariable "ImgHSPACE" 16 DelVariable "ImgVSPACE" 16 DelVariable "ImgWIDTH" 16 DelVariable "ImgHEIGHT" 16 DelVariable "ImgBORDER" 0 521 1 "HTM&L" 6 0 15 9 14 DelVariable 0 265 "{0}" 13 8 2 0 287 "HTML" "{0}" "{2}" "AMIPRO.INI" 0 266 "{0}" 6 1 15 9 14 WriteHREF 5 1 8 1 5 10 6 1 18 2 12 00000100 10 00000188 5 1 6 1 3 0 8 1 10 00000024 0 273 "PastURLs" "{1}" 13 8 2 0 287 "HTML" "URL{1}" "{2}" "AMIPRO.INI" 10 00000067 6 0 15 9 14 WriteIMAGES 5 1 8 1 5 10 6 1 18 2 12 00000102 10 00000194 5 1 6 1 3 0 8 1 10 00000026 0 273 "PastImages" "{1}" 13 8 2 0 287 "HTML" "IMAGE{1}" "{2}" "AMIPRO.INI" 10 00000069 6 0 15 9 14 AddHREF 5 10 21 1 [X] 0 804 &2 &3 &4 &5 5 1 8 6 5 10 6 6 18 2 12 00000133 10 00000247 5 1 6 6 3 0 8 6 10 00000057 6 6 0 273 "PastURLs" "{6}" 13 23 1 6 6 22 1 7 "" 18 1 11 00000234 6 6 22 1 0 31 9000 [X] 10 00000100 5 1 22 1 0 31 8000 [X] 0 26 "." "ADDHREF" 13 8 7 6 7 5 1 18 1 11 00000343 6 0 15 9 0 24 13 8 8 6 8 7 "" 18 1 11 00000397 2 153 1 0 27 8000 13 8 9 7 "<<A HREF=""{9}"">" 8 10 2 251 1 "{2}" "{5}" 255 200 0 6 "{10}" 2 251 1 "{2}" "{5}" "{3}" "{4}" 0 6 "{8}" 2 251 1 "{2}" "{5}" 255 200 0 6 "<</A>" 2 251 1 "{2}" "{5}" "{3}" "{4}" 5 0 8 11 5 1 8 6 5 10 6 6 18 2 12 00000703 10 00000762 5 1 6 6 3 0 8 6 10 00000627 6 6 22 1 6 9 18 0 11 00000749 5 1 8 11 10 00000670 6 11 5 0 18 0 11 00000979 5 10 8 6 5 2 6 6 18 4 12 00000879 10 00000953 5 -1 6 6 3 0 8 6 10 00000803 6 6 5 1 3 1 8 12 6 12 22 1 0 272 "PastURLs" "{6}" [X] 10 00000845 0 272 "PastURLs" 1 "{9}" 6 0 15 9 DIALOG ADDHREF -2134900736 5 46 60 212 162 "" "" "AddHREF" 21 10 40 10 1000 1342177280 "static" "Enter URL:" 0 50 134 40 14 1 1342373889 "button" "OK" 0 114 134 40 14 2 1342373888 "button" "Cancel" 0 22 22 170 12 8000 1350631552 "edit" "" 0 22 44 170 78 9000 1352728577 "listbox" "" 0 14 AddAuthor 0 804 &1 &2 &3 &4 0 286 "HTML" "UserName" "AMIPRO.INI" 13 8 5 0 31 8000 "{5}" 0 286 "HTML" "UserEmail" "AMIPRO.INI" 13 8 6 0 31 8001 "{6}" 0 286 "HTML" "UserHome" "AMIPRO.INI" 13 8 7 0 31 8002 "{7}" 0 265 "AuthNoComma" 13 8 8 0 31 20 "{8}" 0 265 "AuthNoRule" 13 8 9 0 31 21 "{9}" 0 26 "." "ADDAUTHOR" 13 8 10 6 10 5 1 18 1 11 00000389 6 0 15 9 0 27 8000 13 8 5 0 27 8001 13 8 6 0 27 8002 13 8 7 0 27 21 13 8 9 0 27 20 13 8 8 6 9 5 0 18 0 11 00000548 7 "<<HR>[13]" 8 11 10 00000560 7 "" 8 11 7 "{11}<<A HREF=""{7}"">" 8 11 2 251 1 "{1}" "{4}" 255 200 0 6 "{11}" 2 251 1 "{1}" "{4}" "{2}" "{3}" 0 6 "{5}" 2 251 1 "{1}" "{4}" 255 200 6 8 5 0 18 0 11 00000762 7 "," 8 12 10 00000774 7 "" 8 12 0 6 "<</A>{12}<<ADDRESS>" 2 251 1 "{1}" "{4}" "{2}" "{3}" 0 6 "{6}" 2 251 1 "{1}" "{4}" 255 200 0 6 "<</ADDRESS>" 2 251 1 "{1}" "{4}" "{2}" "{3}" 0 287 "HTML" "UserName" "{5}" "AMIPRO.INI" 0 287 "HTML" "UserEmail" "{6}" "AMIPRO.INI" 0 287 "HTML" "UserHome" "{7}" "AMIPRO.INI" 0 264 "AuthNoComma" "{8}" 0 264 "AuthNoRule" "{9}" 6 0 15 9 DIALOG ADDAUTHOR -2134376448 10 76 56 212 126 "" "" "Add Author" 53 7 148 12 8000 1350631552 "edit" "" 0 9 8 40 10 1000 1342177280 "static" "Your Name:" 0 53 27 148 12 8001 1350631552 "edit" "" 0 10 24 40 18 1001 1342177280 "static" "Your e-mail address:" 0 53 48 148 12 8002 1350631552 "edit" "" 0 10 45 40 17 1002 1342177280 "static" "Your home page URL:" 0 56 96 40 14 1 1342373889 "button" "OK" 0 120 96 40 14 3 1342373888 "button" "Cancel" 0 118 72 76 12 20 1342242819 "button" "Suppress comma" 0 26 72 70 12 21 1342242819 "button" "Suppress <HR>" 0 14 AddComment 2 181 1 "" 6 0 15 9 14 AddDateTime 24 158 6 0 15 9 14 AddName 0 804 &1 &2 &3 &4 0 26 "." "ADDNAME" 13 8 5 6 5 5 1 18 1 11 00000101 6 0 15 9 0 24 13 8 6 6 6 7 "" 18 1 11 00000155 2 153 1 0 27 8000 13 8 7 7 "<<A NAME=""{7}"">" 8 8 2 251 1 "{1}" "{4}" 255 200 0 6 "{8}" 2 251 1 "{1}" "{4}" "{2}" "{3}" 0 6 "{6}" 2 251 1 "{1}" "{4}" 255 200 0 6 "<</A>" 2 251 1 "{1}" "{4}" "{2}" "{3}" 6 0 15 9 DIALOG ADDNAME -2134900736 4 91 54 160 90 "" "" "Add Name" 34 17 92 12 8000 1350631552 "edit" "" 0 28 49 40 14 1 1342373889 "button" "OK" 0 90 49 40 14 2 1342373888 "button" "Cancel" 0 36 5 75 10 1000 1342177280 "static" "Anchor name:" 0 14 IconTextStyle 0 26 "." "TextTypes" 13 8 1 6 1 5 0 18 0 6 1 5 14 18 0 1 2 11 00000112 6 0 15 9 5 1 6 1 18 0 11 00000167 7 "EM" 8 2 10 00000552 5 9 6 1 18 0 11 00000226 7 "STRONG" 8 2 10 00000552 5 3 6 1 18 0 11 00000283 7 "CODE" 8 2 10 00000552 5 4 6 1 18 0 11 00000340 7 "SAMP" 8 2 10 00000552 5 5 6 1 18 0 11 00000396 7 "KBD" 8 2 10 00000552 5 6 6 1 18 0 11 00000452 7 "VAR" 8 2 10 00000552 5 7 6 1 18 0 11 00000508 7 "DFN" 8 2 10 00000552 5 8 6 1 18 0 11 00000552 7 "CITE" 8 2 16 TextStyle "{2}" 6 0 15 9 DIALOG TextTypes -2134376448 17 110 54 186 150 "" "" "Select Text Type" 12 10 40 10 1 1342373888 "button" "EM" 0 12 80 40 10 6 1342373888 "button" "VAR" 0 12 24 40 10 2 1342373888 "button" "STRONG" 0 12 38 40 10 3 1342373888 "button" "CODE" 0 12 52 40 10 4 1342373888 "button" "SAMP" 0 12 66 40 10 5 1342373888 "button" "KBD" 0 12 94 40 10 7 1342373888 "button" "DFN" 0 12 108 40 10 8 1342373888 "button" "CITE" 0 54 10 92 10 1000 1342177280 "static" "Emphasis, typically italic" 0 54 24 118 10 1001 1342177280 "static" "Stronger emphasis, typically bold" 0 72 124 40 14 14 1342373888 "button" "CANCEL" 0 54 38 118 10 1002 1342177280 "static" "Example of code." 0 54 52 118 10 1003 1342177280 "static" "A sequence of literal characters" 0 54 66 130 10 1004 1342177280 "static" "Keys typed - in an instruction manual" 0 54 80 118 10 1005 1342177280 "static" "A variable name" 0 54 94 118 10 1006 1342177280 "static" "The defining instance of a term" 0 54 108 118 10 1007 1342177280 "static" "A citation, typically italic" 0 14 AddAddress 0 804 &1 &2 &3 &4 0 24 13 8 5 6 5 7 "" 18 1 11 00000088 2 153 1 7 "<<ADDRESS>" 8 6 2 251 1 "{1}" "{4}" 255 200 0 6 "{6}" 2 251 1 "{1}" "{4}" "{2}" "{3}" 0 6 "{5}" 2 251 1 "{1}" "{4}" 255 200 0 6 "<</ADDRESS>" 2 251 1 "{1}" "{4}" "{2}" "{3}" 6 0 15 9 14 AddImage 5 10 21 1 [X] 0 804 &2 &3 &4 &5 5 1 8 6 5 10 6 6 18 2 12 00000134 10 00000250 5 1 6 6 3 0 8 6 10 00000058 6 6 0 273 "PastImages" "{6}" 13 23 1 6 6 22 1 7 "" 18 1 11 00000237 6 6 22 1 0 31 9000 [X] 10 00000101 0 31 9500 "BOTTOM" 0 31 9500 "MIDDLE" 0 31 9500 "TOP" 0 265 "HTMLNetScape" 13 8 7 6 7 5 1 18 0 11 00000802 0 31 9500 "LEFT" 0 31 9500 "RIGHT" 0 31 9500 "TEXTTOP" 0 31 9500 "ABSMIDDLE" 0 31 9500 "BASELINE" 0 31 9500 "ABSBOTTOM" 0 265 "ImgWIDTH" 13 8 8 0 31 8002 "{8}" 0 265 "ImgHEIGHT" 13 8 8 0 31 8003 "{8}" 0 265 "ImgBORDER" 13 8 8 0 31 8004 "{8}" 0 265 "ImgVSPACE" 13 8 8 0 31 8005 "{8}" 0 265 "ImgHSPACE" 13 8 8 0 31 8006 "{8}" 0 26 "." "ADDIMAGE2" 13 8 9 6 9 5 1 18 1 11 00000789 6 0 15 9 10 00000874 0 26 "." "ADDIMAGE1" 13 8 9 6 9 5 1 18 1 11 00000874 6 0 15 9 0 27 8000 13 8 10 0 27 8001 13 8 11 7 "" 8 12 6 11 7 "" 18 1 11 00000985 7 " ALT=""{11}""" 8 12 0 27 9500 13 8 13 0 27 23 13 5 1 18 0 11 00001074 7 " ISMAP" 8 14 10 00001086 7 "" 8 14 7 "" 8 15 6 7 5 1 18 0 11 00001655 0 27 8002 13 8 8 0 264 "ImgWIDTH" "{8}" 6 8 7 "" 18 1 11 00001231 7 "{15} WIDTH=""{8}""" 8 15 0 27 8003 13 8 8 0 264 "ImgHEIGHT" "{8}" 6 8 7 "" 18 1 11 00001337 7 "{15} HEIGHT=""{8}""" 8 15 0 27 8004 13 8 8 0 264 "ImgBORDER" "{8}" 6 8 7 "" 18 1 11 00001443 7 "{15} BORDER=""{8}""" 8 15 0 27 8005 13 8 8 0 264 "ImgVSPACE" "{8}" 6 8 7 "" 18 1 11 00001549 7 "{15} VSPACE=""{8}""" 8 15 0 27 8006 13 8 8 0 264 "ImgHSPACE" "{8}" 6 8 7 "" 18 1 11 00001655 7 "{15} HSPACE=""{8}""" 8 15 7 "<<IMG SRC=""{10}""{12} ALIGN={13}{15}{14}>" 8 16 2 251 1 "{2}" "{5}" 255 200 0 6 "{16}" 2 251 1 "{2}" "{5}" "{3}" "{4}" 5 0 8 17 5 1 8 6 5 10 6 6 18 2 12 00001880 10 00001940 5 1 6 6 3 0 8 6 10 00001804 6 6 22 1 6 10 18 0 11 00001927 5 1 8 17 10 00001847 6 17 5 0 18 0 11 00002162 5 10 8 6 5 2 6 6 18 4 12 00002057 10 00002133 5 -1 6 6 3 0 8 6 10 00001981 6 6 5 1 3 1 8 18 6 18 22 1 0 272 "PastImages" "{6}" [X] 10 00002023 0 272 "PastImages" 1 "{10}" 6 0 15 9 DIALOG ADDIMAGE1 -2134900736 10 66 34 262 176 "" "" "Add Image" 22 16 88 10 1000 1342177280 "static" "Enter URL of image file:" 0 174 92 64 40 9500 1344274434 "combobox" "" 0 138 92 36 10 1001 1342177280 "static" "Alignment:" 0 76 92 52 12 8001 1350631552 "edit" "" 0 22 90 50 28 1002 1342177280 "static" "Text displayed on text based browsers:" 0 22 120 100 10 23 1342242819 "button" "Picture is a sensitive map" 0 84 144 40 14 1 1342373889 "button" "OK" 0 140 144 40 14 2 1342373888 "button" "Cancel" 0 22 28 216 12 8000 1350631552 "edit" "" 0 22 42 216 40 9000 1352728577 "listbox" "" 0 DIALOG ADDIMAGE2 -2134900736 20 68 38 262 204 "" "" "Add Image" 22 8 88 10 1000 1342177280 "static" "Enter URL of image file:" 0 144 76 64 40 9500 1344274434 "combobox" "" 0 108 78 36 10 1001 1342177280 "static" "Alignment:" 0 148 118 60 12 8001 1350631552 "edit" "" 0 108 116 36 18 1002 1342177280 "static" "Alternative Text:" 0 110 142 100 12 23 1342242819 "button" "Picture is a sensitive map" 0 84 172 40 14 1 1342373889 "button" "OK" 0 140 172 40 14 2 1342373888 "button" "Cancel" 0 22 18 214 12 8000 1350631552 "edit" "" 0 22 32 214 40 9000 1352728577 "listbox" "" 0 50 108 40 12 8002 1350631552 "edit" "" 0 50 124 40 12 8003 1350631552 "edit" "" 0 50 140 40 12 8004 1350631552 "edit" "" 0 50 76 40 12 8005 1350631552 "edit" "" 0 50 92 40 12 8006 1350631552 "edit" "" 0 22 110 22 10 1003 1342177280 "static" "Width" 0 22 126 22 10 1006 1342177280 "static" "Height" 0 22 142 24 10 1007 1342177280 "static" "Border" 0 22 78 26 10 1008 1342177280 "static" "VSpace" 0 22 94 26 10 1009 1342177280 "static" "HSpace" 0 14 AddTag 0 804 &2 &3 &4 &5 7 "{0}" 8 6 2 251 1 "{2}" "{5}" 255 200 0 6 "{6}" 2 251 1 "{2}" "{5}" "{3}" "{4}" 6 1 15 9 14 AddRule 0 265 "HTMLNetScape" 13 8 1 6 1 5 1 18 0 11 00000450 7 "" 8 2 0 265 "HRThick" 13 8 3 6 3 7 "" 18 1 11 00000166 7 "{2} SIZE=""{3}""" 8 2 0 265 "HRWidth" 13 8 3 6 3 7 "" 18 1 11 00000250 7 "{2} WIDTH=""{3}""" 8 2 0 265 "HRAlign" 13 8 3 6 3 7 "" 18 1 11 00000334 7 "{2} ALIGN=""{3}""" 8 2 0 265 "HRShade" 13 8 4 6 4 5 1 18 0 11 00000411 7 "{2} NOSHADE" 8 2 16 AddTag "<<HR{2}>[13]" 10 00000473 16 AddTag "<<HR>[13]" 6 0 15 9 14 AddBreak 0 265 "HTMLNetScape" 13 8 1 6 1 5 1 18 0 11 00000236 7 "" 8 2 0 265 "BRClear" 13 8 3 6 3 7 "<<NULL>" 18 1 6 3 7 "" 18 1 1 1 11 00000197 7 "{2} CLEAR=""{3}""" 8 2 16 AddTag "<<BR{2}>[13]" 10 00000259 16 AddTag "<<BR>[13]" 6 0 15 9 14 AddNOBR 16 TextStyle "NOBR" 6 0 15 9 14 AddWBR 16 AddTag "<<WBR>" 6 0 15 9 14 TextEffects 0 17 "{0}" 13 8 0 7 "bold" 6 0 18 0 11 00000093 2 254 1 10 00000414 7 "italic" 6 0 18 0 11 00000151 2 255 1 10 00000414 7 "pitch" 6 0 18 0 11 00000357 0 804 &2 &3 &4 &5 6 2 7 "Times New Roman" 18 0 11 00000285 7 "Courier New" 8 2 10 00000311 7 "Times New Roman" 8 2 2 251 1 "{2}" "{5}" "{3}" "{4}" 10 00000414 7 "blink" 6 0 18 0 11 00000414 16 TextStyle "BLINK" 6 1 15 9 14 TextStyle 0 804 &2 &3 &4 &5 0 24 13 8 6 6 6 7 "" 18 1 11 00000087 2 153 1 2 251 1 "{2}" "{5}" 255 200 0 6 "<<{0}>" 2 251 1 "{2}" "{5}" "{3}" "{4}" 0 6 "{6}" 2 251 1 "{2}" "{5}" 255 200 0 6 "<</{0}>" 2 251 1 "{2}" "{5}" "{3}" "{4}" 6 1 15 9 14 ParaStyle 24 306 6 0 15 9 14 Options 5 0 8 0 0 265 "HRAlign" 13 8 1 0 31 9500 "{1}" 6 1 7 "LEFT" 18 1 11 00000117 0 31 9500 "LEFT" 6 1 7 "RIGHT" 18 1 11 00000171 0 31 9500 "RIGHT" 6 1 7 "CENTER" 18 1 11 00000227 0 31 9500 "CENTER" 0 265 "BRClear" 13 8 1 0 31 9501 "{1}" 6 1 7 "<<NULL>" 18 1 11 00000328 0 31 9501 "<<NULL>" 6 1 7 "ALL" 18 1 11 00000378 0 31 9501 "ALL" 6 1 7 "RIGHT" 18 1 11 00000432 0 31 9501 "RIGHT" 6 1 7 "LEFT" 18 1 11 00000484 0 31 9501 "LEFT" 0 265 "HTMLNetScape" 13 8 1 0 31 23 "{1}" 0 265 "HRShade" 13 8 1 0 31 25 "{1}" 0 265 "HRThick" 13 8 1 0 31 8001 "{1}" 0 265 "HRWidth" 13 8 1 0 31 8002 "{1}" 0 265 "ConvertDialog" 13 8 1 0 31 20 "{1}" 0 26 "." "OPTIONS" 13 8 2 6 2 5 1 18 1 11 00000774 6 0 15 9 0 27 9500 13 8 1 0 264 "HRAlign" "{1}" 0 27 9501 13 8 1 0 264 "BRClear" "{1}" 0 27 8001 13 8 1 0 264 "HRThick" "{1}" 0 27 8002 13 8 1 0 264 "HRWidth" "{1}" 0 27 25 13 8 1 0 264 "HRShade" "{1}" 0 27 23 13 8 1 0 264 "HTMLNetScape" "{1}" 0 27 20 13 8 1 0 264 "ConvertDialog" "{1}" 5 1 8 0 6 0 15 9 DIALOG OPTIONS -2134376448 15 94 48 254 140 "" "" "AmiWeb Options" 132 68 98 12 23 1342242819 "button" "Use NetScape Extensions" 0 8 0 116 90 24 1342308359 "button" "<HR> Options" 0 20 20 40 10 1000 1342177280 "static" "Thickness" 0 20 36 40 10 1001 1342177280 "static" "Width" 0 20 52 40 10 1002 1342177280 "static" "Alignment" 0 20 66 50 12 25 1342242819 "button" "No Shade" 0 60 18 50 12 8001 1350631552 "edit" "" 0 60 34 50 12 8002 1350631552 "edit" "" 0 60 50 52 40 9500 1344274435 "combobox" "" 0 132 2 100 60 26 1342308359 "button" "<BR> Options" 0 174 20 52 40 9501 1344274435 "combobox" "" 0 138 22 22 10 1003 1342177280 "static" "Clear" 0 78 108 40 14 1 1342373889 "button" "OK" 0 138 108 40 14 2 1342373888 "button" "Cancel" 0 132 80 114 18 20 1342242819 "button" "Don't show Convert dialog box" 0 14 ConvertFile 5 0 8 0 5 0 8 1 0 267 13 8 2 6 2 7 "" 18 0 11 00000143 24 104 13 5 1 18 1 11 00000130 6 0 15 9 10 00000152 2 103 1 0 1310 "Destination" 13 8 3 6 3 7 "" 18 0 11 00000277 5 1 8 1 0 265 "HTMLDir" 13 8 3 0 1311 "Destination" "{3}" 0 1310 "DestName" 13 8 4 6 4 7 "" 18 0 11 00000720 5 1 8 1 0 267 13 8 2 5 1 8 5 5 0 8 6 6 6 5 0 18 0 11 00000513 6 5 8 7 0 13 "{5}" "{2}" "\" 13 5 1 3 0 8 5 6 5 5 0 18 0 11 00000500 5 1 8 6 10 00000381 0 14 "{2}" 13 6 7 3 1 5 1 3 0 0 15 "{2}" "{7}" [X] 13 8 8 0 13 1 "{8}" "." 13 8 9 6 9 5 -1 18 1 11 00000692 6 9 5 -1 3 0 0 806 "{8}" [X] 13 8 4 10 00000702 6 8 8 4 7 "{4}.HTM" 8 4 0 286 "HTML" "UseBreaks" "AMIPRO.INI" 13 8 10 0 265 "ConvertDialog" 13 8 11 6 11 7 "" 18 0 11 00000844 5 0 8 11 6 11 5 0 18 0 6 1 5 1 18 0 1 2 11 00001174 0 31 8001 "{4}" 0 31 8000 "{3}" 0 31 20 "{10}" 0 26 "." "CONVERTFILE" 13 5 1 18 1 11 00001009 6 0 15 9 0 27 8001 13 8 4 0 27 8000 13 8 3 0 27 20 13 8 10 0 287 "HTML" "UseBreaks" "{10}" "AMIPRO.INI" 0 807 "{3}" 1 13 7 "\" 18 1 11 00001174 7 "{3}\" 8 3 0 264 "HTMLDir" "{3}" 0 1311 "Destination" "{3}" 0 1311 "DestName" "{4}" 0 22 "wn_sm2ht.exe" "{2} {3}{4}" 1 13 8 12 6 12 5 31 18 4 11 00001737 5 0 6 12 18 0 11 00001462 0 3 "The system is out of memory or resources- close an application and try again" "Error" 10 00001737 5 2 6 12 18 0 11 00001546 0 3 "Executable file not found" "Error" 10 00001737 5 3 6 12 18 0 11 00001630 0 3 "Executable path not found" "Error" 10 00001737 5 11 6 12 18 0 11 00001702 0 3 "Bad EXE file" "Error" 10 00001737 0 3 "Unknown Error- {12}" "Error" 5 1 8 0 0 34 1 1 6 0 15 9 DIALOG CONVERTFILE -2134900736 7 108 68 232 94 "" "" "Convert to HTML" 16 46 124 12 8000 1350631552 "edit" "" 0 16 35 108 10 1000 1342177280 "static" "Destination Directory:" 0 15 6 98 10 1001 1342177280 "static" "Destination Filename:" 0 16 16 83 12 8001 1350631552 "edit" "" 0 175 38 40 14 2 1342373888 "button" "Cancel" 0 175 15 40 14 1 1342373889 "button" "OK" 0 16 72 100 12 20 1342242819 "button" "Use <BR>s for linebreaks" 0 14 BackGround 0 1310 "BGCOLOR" 13 8 1 0 1310 "BODYTEXT" 13 8 2 0 1310 "BACKGROUND" 13 8 3 0 1310 "LINKCOL" 13 8 4 0 1310 "VLINKCOL" 13 8 5 0 1310 "ALINKCOL" 13 8 6 0 31 8001 "{1}" 0 31 8002 "{2}" 0 31 8003 "{3}" 0 31 8004 "{4}" 0 31 8005 "{5}" 0 31 8006 "{6}" 0 26 "." "ColourSettings" 13 5 1 18 1 11 00000352 6 0 15 9 0 27 8001 13 8 1 0 27 8002 13 8 2 0 27 8003 13 8 3 0 27 8004 13 8 4 0 27 8005 13 8 5 0 27 8006 13 8 6 0 1311 "BGCOLOR" "{1}" 0 1311 "BODYTEXT" "{2}" 0 1311 "BACKGROUND" "{3}" 0 1311 "LINKCOL" "{4}" 0 1311 "VLINKCOL" "{5}" 0 1311 "ALINKCOL" "{6}" 0 34 1 1 6 0 15 9 DIALOG ColourSettings -2134900736 14 74 56 212 122 "" "" "Colour Settings and Background Image" 50 8 50 12 8001 1350631552 "edit" "" 0 50 28 50 12 8002 1350631552 "edit" "" 0 8 74 194 12 8003 1350631552 "edit" "" 0 152 8 50 12 8004 1350631552 "edit" "" 0 152 28 50 12 8005 1350631552 "edit" "" 0 152 48 50 12 8006 1350631552 "edit" "" 0 58 96 40 14 1 1342373889 "button" "OK" 0 6 6 40 16 1000 1342177280 "static" "Background Colour:" 0 6 26 38 22 1001 1342177280 "static" "Body Text Colour:" 0 108 8 40 10 1002 1342177280 "static" "Link Colour:" 0 106 24 44 16 1003 1342177280 "static" "Visited Link Colour:" 0 106 46 42 16 1004 1342177280 "static" "Active Link Colour:" 0 8 64 80 8 1005 1342177280 "static" "Background Image URL:" 0 130 96 40 14 2 1342373888 "button" "Cancel" 0 14 TestDoc 0 286 "HTML" "HTMLBrowser" "AMIPRO.INI" 13 8 1 6 1 7 "" 18 0 11 00000276 0 3 "You need to setup a web browser under Options" "Test Document" 16 Options 13 5 1 18 1 11 00000213 6 0 15 9 0 286 "HTML" "HTMLBrowser" "AMIPRO.INI" 13 8 1 10 00000062 0 1310 "DestName" 13 8 2 0 1310 "Destination" 13 8 3 6 2 7 "" 18 0 6 3 7 "" 18 0 1 2 11 00000502 16 ConvertFile 13 5 1 18 1 11 00000443 6 0 15 9 0 1310 "DestName" 13 8 2 0 1310 "Destination" 13 8 3 0 3 "Blah {1}{3}{2}" 0 22 "{1}" "{3}{2}" 1 6 0 15 9 00083822